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