From: Alastair B. <lis...@us...> - 2007-04-08 15:25:42
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86 In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18639/src/compiler/x86 Modified Files: debug.lisp Log Message: 1.0.4.50: more x86 backend * Fixing a missed pair of frame-byte-offsets from 1.0.4.42. Index: debug.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/debug.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- debug.lisp 7 Apr 2007 20:00:24 -0000 1.9 +++ debug.lisp 8 Apr 2007 15:25:39 -0000 1.10 @@ -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) |