From: Gabor Melis <mega@hotpop.com>
Date: Tue, 5 Jul 2005 14:17:14 +0000 (+0000)
Subject: 0.9.2.29:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1714224f33ba559eab11af8827a78f9a5aebd698;p=sbcl.git

0.9.2.29:
  * made the debugger omit printing the thread in unithread builds
  * fixed a ppc gcc4 compilation problem
---

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 964b07a..dd54548 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -527,10 +527,11 @@ reset to ~S."
 	;; expect to see error messages logged there, regardless of what
 	;; the debugger does afterwards.)
 	(format *error-output*
-		"~2&~@<debugger invoked on a ~S in thread ~A: ~
+		"~2&~@<debugger invoked on a ~S~@[ in thread ~A~]: ~
                     ~2I~_~A~:>~%"
 		(type-of *debug-condition*)
-                sb!thread:*current-thread*
+                #!+sb-thread sb!thread:*current-thread*
+                #!-sb-thread nil
 		*debug-condition*)
       (error (condition)
 	(setf *nested-debug-condition* condition)
@@ -604,9 +605,10 @@ reset to ~S."
     (handler-case
 	(progn
 	  (format *error-output*
-		  "~&~@<unhandled ~S in thread ~S: ~2I~_~A~:>~2%"
+		  "~&~@<unhandled ~S~@[ in thread ~S~]: ~2I~_~A~:>~2%"
 		  (type-of condition)
-		  sb!thread:*current-thread*
+                  #!+sb-thread sb!thread:*current-thread*
+                  #!-sb-thread nil
 		  condition)
 	  ;; Flush *ERROR-OUTPUT* even before the BACKTRACE, so that
 	  ;; even if we hit an error within BACKTRACE (e.g. a bug in
diff --git a/src/runtime/ppc-linux-os.h b/src/runtime/ppc-linux-os.h
index f308286..4f65e16 100644
--- a/src/runtime/ppc-linux-os.h
+++ b/src/runtime/ppc-linux-os.h
@@ -10,6 +10,5 @@ static inline os_context_t *arch_os_get_context(void **void_context) {
 
 unsigned long os_context_fp_control(os_context_t *context);
 void os_restore_fp_control(os_context_t *context);
-extern struct thread *arch_os_get_current_thread();
 
 #endif /* _PPC_LINUX_OS_H */
diff --git a/version.lisp-expr b/version.lisp-expr
index 081fb64..0e1b5d3 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.2.28"
+"0.9.2.29"