From 2a5180f5427efb9fcbb9ab5d35cb83cdba7e6c7e Mon Sep 17 00:00:00 2001
From: hallgren <hallgren>
Date: Tue, 19 Jul 1994 19:51:10 +0000
Subject: [PATCH] Store zero in t8 before calling into lisp.

---
 lisp/mips-assem.S | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S
index 4908037e2..63873a7a1 100644
--- a/lisp/mips-assem.S
+++ b/lisp/mips-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.4 1994/07/06 20:55:18 hallgren Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.5 1994/07/19 19:51:10 hallgren Exp $ */
 #ifdef mach
 #include <machine/regdef.h>
 #else
@@ -47,6 +47,7 @@ call_into_lisp:
 	move	t5, zero
 	move	t6, zero
 	move	t7, zero
+	move	t8, zero
 	move	s0, zero
 	move	s1, zero
 	move	s2, zero
@@ -206,6 +207,10 @@ call_into_c:
 	move	t5, zero
 	move	t6, zero
 	move	t7, zero
+	move	t8, zero
+	move	s0, zero
+	move	s1, zero
+	move	s2, zero
 	move	ra, zero
 
 	/* Turn on pseudo-atomic. */
-- 
GitLab