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 (file)
--- 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 (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.25.11"
+"1.0.25.12"