From ea5b545584c552a30204f2ebdd78f8ab4d7151d9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 1 Jun 1990 13:54:36 +0000
Subject: [PATCH] Fixed KNOWN-RETURN to use the temps, now that we have loaded
 the args into them.

---
 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 7545d794c..dedeb62e2 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -468,8 +468,8 @@ default-value-5
     (maybe-load-stack-tn old-fp-temp old-fp)
     (maybe-load-stack-tn return-pc-temp return-pc)
     (inst lr sp-tn fp-tn)
-    (inst bnbrx :pz return-pc)
-    (inst lr fp-tn old-fp)))
+    (inst bnbrx :pz return-pc-temp)
+    (inst lr fp-tn old-fp-temp)))
 
 
 ;;;; Full call:
-- 
GitLab