From: Cyrus Harmon <ch-sbcl@bobobeach.com>
Date: Fri, 6 Apr 2007 17:24:26 +0000 (+0000)
Subject: 1.0.4.33: check that context is not a null-alien
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=f59d43f28fb757db168e46399b7c8ab04cc6620b;p=sbcl.git

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
--- 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
--- 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"