From 9ef8b9ea444613a8dca8bb63ac5b8a0fa5bdcdda Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 25 Jun 1990 21:13:43 +0000
Subject: [PATCH] Added the temp args to compute-foo-from-bar instructions

---
 compiler/mips/static-fn.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp
index 61cc18bfc..69451bbcc 100644
--- a/compiler/mips/static-fn.lisp
+++ b/compiler/mips/static-fn.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.9 1990/05/18 00:56:39 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.10 1990/06/25 21:13:43 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and macro magic necessary to call static
 ;;; functions.
@@ -23,7 +23,7 @@
   (:policy :safe)
   (:variant-vars symbol)
   (:vop-var vop)
-  (:temporary (:scs (any-reg)) temp)
+  (:temporary (:scs (non-descriptor-reg)) temp)
   (:temporary (:scs (descriptor-reg)) move-temp)
   (:temporary (:sc descriptor-reg :offset lra-offset) lra)
   (:temporary (:sc descriptor-reg :offset cname-offset) cname)
@@ -96,7 +96,7 @@
 	       (store-stack-tn nfp-save cur-nfp))
 	     (move old-fp fp-tn)
 	     (move fp-tn csp-tn)
-	     (inst compute-lra-from-code lra code-tn lra-label)
+	     (inst compute-lra-from-code lra code-tn lra-label temp)
 	     (loadw function lexenv vm:closure-function-slot
 		    vm:function-pointer-type)
 	     (lisp-jump function lip)
-- 
GitLab