From 3ad1ba14ac2abb6ccb8cfb4a550bc7a0a17ff3bf Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 2 Aug 1991 03:40:38 +0000
Subject: [PATCH] Completed previous fix.

---
 assembly/mips/wrlist.lisp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/assembly/mips/wrlist.lisp b/assembly/mips/wrlist.lisp
index e99a71ae7..71dd5badd 100644
--- a/assembly/mips/wrlist.lisp
+++ b/assembly/mips/wrlist.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/wrlist.lisp,v 1.2 1991/08/02 03:37:19 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/wrlist.lisp,v 1.3 1991/08/02 03:40:38 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -156,6 +156,12 @@
      (:temp nl0 non-descriptor-reg nl0-offset)
      (:temp nl1 non-descriptor-reg nl1-offset)
 
+     (:temp nl2 non-descriptor-reg nl2-offset)
+     (:temp nl3 non-descriptor-reg nl3-offset)
+     (:temp nl4 non-descriptor-reg nl4-offset)
+     (:temp nl5 non-descriptor-reg nl5-offset)
+     (:temp nargs non-descriptor-reg nargs-offset)
+
      (:temp a2 any-reg a2-offset)
      (:temp a3 any-reg a3-offset)
      (:temp a4 any-reg a4-offset)
@@ -209,7 +215,8 @@
     ;; Turn off pseudo-atomic.
     (end-pseudo-atomic nl0)
 
-    ;; Move the other non-descriptor regs into saved regs.
+    ;; Move the non-descriptor regs into saved regs.
+    (inst move l1 nl2)
     (inst move l2 nl3)
     (inst move l3 nl4)
     (inst move nfp nl5)
@@ -228,7 +235,8 @@
     ;; Deallocate the stack frame.
     (inst addu nsp-tn nsp-tn (* 4 word-bytes))
 
-    ;; Restore the other non-descriptor regs.
+    ;; Restore the non-descriptor regs.
+    (inst move nl2 l1)
     (inst move nl3 l2)
     (inst move nl4 l3)
     (inst move nl5 nfp)
-- 
GitLab