1.0.4.33: check that context is not a null-alien

 * when using the nth-interrupt-context check to make sure that it is
   not a null-alien and use the %caller-frame-and-pc if it is.

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 3d375e8..fbec1a2 100644 (file)
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -669,7 +669,8 @@
   ;; nth-interrupt-context, otherwise use the (%caller-frame-and-pc
   ;; vop).
   (let ((context (nth-interrupt-context 0)))
-    (if context
+    (if (and context
+             (not (sb!alien:null-alien context)))
         (compute-calling-frame
          (int-sap (sb!vm:context-register context
                                           sb!vm::cfp-offset))

diff --git a/version.lisp-expr b/version.lisp-expr
index dda0012..1967656 100644 (file)
--- 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".)
-"1.0.4.32"
+"1.0.4.33"