0.9.2.29:
authorGabor Melis <mega@hotpop.com>
Tue, 5 Jul 2005 14:17:14 +0000 (14:17 +0000)
committerGabor Melis <mega@hotpop.com>
Tue, 5 Jul 2005 14:17:14 +0000 (14:17 +0000)
  * made the debugger omit printing the thread in unithread builds
  * fixed a ppc gcc4 compilation problem

src/code/debug.lisp
src/runtime/ppc-linux-os.h
version.lisp-expr

index 964b07a..dd54548 100644 (file)
@@ -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
index f308286..4f65e16 100644 (file)
@@ -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 */
index 081fb64..0e1b5d3 100644 (file)
@@ -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"