diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 03427ff573e9e6a1538884a9c77c49b0df794f29..2f56f9a6a848a1e973824ed29e4dcc09b1ca33a7 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.118 2004/11/19 19:07:24 cwang Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.119 2004/11/20 00:47:28 cwang Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1102,7 +1102,7 @@ (#.vm::ocfp-save-offset (kernel:stack-ref pointer stack-slot)) (#.vm::lra-save-offset - (sap-ref-sap pointer (- (* (1+ stack-slot) 4)))))))) + (sap-ref-sap pointer (- (* (1+ stack-slot) vm:word-bytes)))))))) ;;; #-(or x86 amd64) @@ -1127,7 +1127,8 @@ (#.vm::ocfp-save-offset (setf (kernel:stack-ref pointer stack-slot) value)) (#.vm::lra-save-offset - (setf (sap-ref-sap pointer (- (* (1+ stack-slot) 4))) value)))))) + (setf (sap-ref-sap pointer (- (* (1+ stack-slot) vm:word-bytes))) + value)))))) (defvar *debugging-interpreter* nil