X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=57fe61d6bcd9100cde1a66dfc0affc27a3099c7d;hb=619189958917e80786d5bb2efa4dc38d908d2553;hp=5ec3f41b9ecdf03abc936e2a6d59a558b7d09c9b;hpb=3cbc1e7cfb59875d7ebec4af3c7c744cab0b76ae;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 5ec3f41..57fe61d 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
@@ -881,7 +881,9 @@
   (declare (type (unsigned-byte 32) n)
            (optimize (speed 3) (safety 0)))
   (sb!alien:sap-alien (sb!vm::current-thread-offset-sap
-                       (+ sb!vm::thread-interrupt-contexts-offset n))
+                       (+ sb!vm::thread-interrupt-contexts-offset
+                          #!-alpha n
+                          #!+alpha (* 2 n)))
                       (* os-context-t)))
 
 #!+(or x86 x86-64)