diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp index 61cc18bfce47dfd7b8f873bfc9357fd208efaff2..69451bbcc81c4070178d83f2575f5a600b0f1970 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)