From c87b415229f124c7697749db3a1391673c33b0e3 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 6 Aug 1990 15:16:07 +0000
Subject: [PATCH] In KNOWN-RETURN, target the OLD-CONT and RETURN-PC into the
 temps so that we don't always have to do a move.

---
 compiler/old-rt/call.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index 678b66c24..a99d80106 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)
-- 
GitLab