From 6073a2deb656906111daca20084ecc343cab511e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 19 May 1993 16:17:09 +0000 Subject: [PATCH] Don't use store-symbol-value in the gengc system. --- assembly/mips/assem-rtns.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp index 6f3cd4a87..94e69bce1 100644 --- a/assembly/mips/assem-rtns.lisp +++ b/assembly/mips/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/mips/assem-rtns.lisp,v 1.30 1993/05/19 13:57:24 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.31 1993/05/19 16:17:09 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -222,7 +222,8 @@ (loadw next-uwp cur-uwp vm:unwind-block-current-uwp-slot) (inst b do-exit) - (store-symbol-value next-uwp lisp::*current-unwind-protect-block*)) + #-gengc (store-symbol-value next-uwp lisp::*current-unwind-protect-block*) + #+gengc (storew next-uwp mutator-tn mutator-current-unwind-protect-slot)) (define-assembly-routine @@ -236,7 +237,7 @@ (progn start count) ; We just need them in the registers. #-gengc (load-symbol-value catch lisp::*current-catch-block*) - #+gengc (loadw temp mutator-tn mutator-current-catch-block-slot) + #+gengc (loadw catch mutator-tn mutator-current-catch-block-slot) loop @@ -256,5 +257,3 @@ (move target catch) (inst j (make-fixup 'unwind :assembly-routine)) (inst nop)) - - -- GitLab