X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=57fe61d6bcd9100cde1a66dfc0affc27a3099c7d;hb=816c50a5589bcf756f67119e657ae348e4858357;hp=80b5aae2dedb6f23c97f165f47b2a475593ba5d5;hpb=0d4c7a1323106c6e60511bef929048edcb040205;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 80b5aae..57fe61d 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -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)