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