From 52360d5ece50dee39d776d8fd6f32ac842ac60b8 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Aug 1991 02:32:01 +0000 Subject: [PATCH] Save code and lra across the call into C in set-symbol-function --- assembly/mips/wrlist.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/assembly/mips/wrlist.lisp b/assembly/mips/wrlist.lisp index 3d995adf5..082f4b5ad 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.4 1991/08/03 01:26:30 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/wrlist.lisp,v 1.5 1991/08/03 02:32:01 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -173,7 +173,8 @@ (:temp l2 any-reg l2-offset) (:temp l3 any-reg l3-offset) (:temp nfp any-reg nfp-offset) - (:temp ocfp any-reg ocfp-offset)) + (:temp ocfp any-reg ocfp-offset) + (:temp lra any-reg lra-offset)) ;; The write into memory and the write into the write-list have to be atomic. (start-pseudo-atomic) @@ -199,7 +200,7 @@ ;; Save all lisp regs on the stack, so the garbage collector can find them. (save-regs-on-stack (symbol function a2 a3 a4 a5 cname lexenv - l0 l1 l2 l3 nfp ocfp null-tn) + l0 l1 l2 l3 nfp ocfp code-tn lra null-tn) ;; Convert the return address into an offset. We don't have to save l0 ;; across the call-out because it is one of the saved regs. -- GitLab