From 86d4b3afa64848f76e0ec53625158e4d993bb34a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 19 Oct 1990 15:31:18 +0000 Subject: [PATCH] More sillyness. --- assembly/mips/assem-rtns.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp index 44c8eacde..831eda116 100644 --- a/assembly/mips/assem-rtns.lisp +++ b/assembly/mips/assem-rtns.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.23 1990/10/19 14:16:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.24 1990/10/19 15:31:18 wlott Exp $ ;;; ;;; (in-package "C") @@ -104,7 +104,7 @@ () ;; These are really args. (:temp args any-reg nl0-offset) - (:temp function descriptor-reg lexenv-offset) + (:temp lexenv descriptor-reg lexenv-offset) ;; We need to compute this (:temp nargs any-reg nargs-offset) @@ -156,8 +156,8 @@ DONE ;; We are done. Do the jump. - (loadw function lexenv vm:closure-function-slot vm:function-pointer-type) - (lisp-jump function lip)) + (loadw temp lexenv vm:closure-function-slot vm:function-pointer-type) + (lisp-jump temp lip)) @@ -206,8 +206,7 @@ (:arg start any-reg old-fp-offset) (:arg count any-reg nargs-offset) (:temp catch any-reg a1-offset) - (:temp tag descriptor-reg a2-offset) - (:temp ndescr non-descriptor-reg nl0-offset)) + (:temp tag descriptor-reg a2-offset)) (progn start count) ; We just need them in the registers. -- GitLab