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