diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp index 678b66c24d0f4d475a89110576bcd59ec12ca74a..a99d8010677e824d5a2b3b82474c222ad79fbdcb 100644 --- a/compiler/old-rt/call.lisp +++ b/compiler/old-rt/call.lisp @@ -480,8 +480,8 @@ default-value-5 ;;; (define-vop (known-return) (:args - (old-fp) - (return-pc) + (old-fp :target old-fp-temp) + (return-pc :target return-pc-temp) (vals :more t)) (:temporary (:sc descriptor-reg :from (:argument 0)) old-fp-temp) (:temporary (:sc descriptor-reg :from (:argument 1)) return-pc-temp)