Skip to content
Snippets Groups Projects
Commit 52360d5e authored by wlott's avatar wlott
Browse files

Save code and lra across the call into C in set-symbol-function

parent 4f5ec80e
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -173,7 +173,8 @@
(:temp l2 any-reg l2-offset) (:temp l2 any-reg l2-offset)
(:temp l3 any-reg l3-offset) (:temp l3 any-reg l3-offset)
(:temp nfp any-reg nfp-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. ;; The write into memory and the write into the write-list have to be atomic.
(start-pseudo-atomic) (start-pseudo-atomic)
...@@ -199,7 +200,7 @@ ...@@ -199,7 +200,7 @@
;; Save all lisp regs on the stack, so the garbage collector can find them. ;; 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 (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 ;; 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. ;; across the call-out because it is one of the saved regs.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment