diff --git a/assembly/x86/assem-rtns.lisp b/assembly/x86/assem-rtns.lisp index 6484221062d28243cf9aee2ef91c37831ec2fcb8..b7b22eb1589dfa6783d4370c4990875b53da31a5 100644 --- a/assembly/x86/assem-rtns.lisp +++ b/assembly/x86/assem-rtns.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/assem-rtns.lisp,v 1.1 1997/01/21 00:30:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/assem-rtns.lisp,v 1.2 1997/11/18 10:48:01 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -284,7 +284,7 @@ ;; correct thing gets passed into the various nlx entry points although ;; I think the compiler really ought to do it. - (storew start ebp-tn (- (1+ old-fp-save-offset))) + (storew start ebp-tn (- (1+ ocfp-save-offset))) (inst jmp (make-ea :byte :base block :disp (* unwind-block-entry-pc-slot word-bytes)))) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 88aa67c1a9f93238ac5048020ead51d35b630e76..d9d753a6d767a85d1ccb5f556a82ccd5ceceedf0 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.75 1997/11/15 07:36:39 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.76 1997/11/18 10:47:56 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -965,7 +965,7 @@ ;; These return hopefully correct ofp ret values at a call site (defun maybe-lisp-from-c(fp) (declare (type system-area-pointer fp)) - (let ((s0 (stack-ref-32 fp vm::old-fp-save-offset)) + (let ((s0 (stack-ref-32 fp vm::ocfp-save-offset)) (s1 (stack-ref-32 fp vm::return-pc-save-offset))) (when (and (kernel:make-lisp-obj s0)(kernel:make-lisp-obj s1)) (let ((lisp-ofp (int-sap s0)) @@ -981,7 +981,7 @@ (defun maybe-lisp-from-lisp(fp) (declare (type system-area-pointer fp)) (when (cstack-pointer-valid-p fp) - (let ((s0 (stack-ref-32 fp vm::old-fp-save-offset)) + (let ((s0 (stack-ref-32 fp vm::ocfp-save-offset)) (s1 (stack-ref-32 fp vm::return-pc-save-offset))) (when (and (kernel:make-lisp-obj s0) (kernel:make-lisp-obj s1))