From: Juho Snellman <jsnell@iki.fi>
Date: Sat, 15 Oct 2005 22:25:00 +0000 (+0000)
Subject: 0.9.5.73:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d411bb9c10af8fb568a4a23274090ede67f738dd;p=sbcl.git

0.9.5.73:
	* Fix x86/x86-64 build
        * Kill a gcc warning on unithreaded x86
---

diff --git a/src/runtime/monitor.c b/src/runtime/monitor.c
index 0f82724..b59bf4e 100644
--- a/src/runtime/monitor.c
+++ b/src/runtime/monitor.c
@@ -203,7 +203,8 @@ regs_cmd(char **ptr)
     printf("ALLOC\t=\t0x%08lx\n", (unsigned long)dynamic_space_free_pointer);
 #else
     printf("ALLOC\t=\t0x%08lx\n",
-           (unsigned long)SymbolValue(ALLOCATION_POINTER));
+           (unsigned long)SymbolValue(ALLOCATION_POINTER,
+                                      arch_os_get_current_thread()));
 #endif
 
 #ifndef LISP_FEATURE_GENCGC
diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index ef73baf..16a27b0 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -38,15 +38,13 @@ extern struct interrupt_data * global_interrupt_data;
 extern int linux_no_threads_p;
 
 #ifdef LISP_FEATURE_SB_THREAD
-
 pthread_mutex_t all_threads_lock = PTHREAD_MUTEX_INITIALIZER;
+#endif
 
 #if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64)
 extern lispobj call_into_lisp_first_time(lispobj fun, lispobj *args, int nargs);
 #endif
 
-#endif
-
 static void
 link_thread(struct thread *th)
 {
diff --git a/version.lisp-expr b/version.lisp-expr
index dc7fdb9..5927fc8 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.5.72"
+"0.9.5.73"