X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86%2Fdebug.lisp;h=b104645b98a689743e726081205aa3b4d5e90358;hb=b28aadc5bd34a0d9fa0ff15c52b2b4164d955831;hp=3869b6a46dade375476bb2d243a437d4d40b657b;hpb=48ff891135e403e49037940bbad18d262e23df5e;p=sbcl.git

diff --git a/src/compiler/x86/debug.lisp b/src/compiler/x86/debug.lisp
index 3869b6a..b104645 100644
--- a/src/compiler/x86/debug.lisp
+++ b/src/compiler/x86/debug.lisp
@@ -43,7 +43,7 @@
     (move temp offset)
     (inst neg temp)
     (inst mov result
-          (make-ea :dword :base sap :disp (- n-word-bytes) :index temp))))
+          (make-ea :dword :base sap :disp (frame-byte-offset 0) :index temp))))
 
 (define-vop (read-control-stack-c)
   (:translate stack-ref)
@@ -71,7 +71,7 @@
     (move temp offset)
     (inst neg temp)
     (inst mov
-          (make-ea :dword :base sap :disp (- n-word-bytes) :index temp) value)
+          (make-ea :dword :base sap :disp (frame-byte-offset 0) :index temp) value)
     (move result value)))
 
 (define-vop (write-control-stack-c)