From: Gabor Melis <mega@hotpop.com>
Date: Wed, 11 Feb 2009 13:56:26 +0000 (+0000)
Subject: 1.0.25.12: fix debugger on non-x86oids
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=15db958047c1f1190b57e34ef89e5d71da4dc1cc;p=sbcl.git

1.0.25.12: fix debugger on non-x86oids

  (regression from 1.0.25.9 that broke TOP-FRAME)
---

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 5ec3f41..80b5aae 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -663,7 +663,7 @@
 (defun top-frame ()
   (/noshow0 "entering TOP-FRAME")
   (compute-calling-frame (descriptor-sap (%caller-frame))
-                         (descriptor-sap (%caller-pc))
+                         (%caller-pc)
                          nil))
 
 ;;; Flush all of the frames above FRAME, and renumber all the frames
diff --git a/version.lisp-expr b/version.lisp-expr
index 9063448..f55c62c 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.25.11"
+"1.0.25.12"