From 17dc2924c41ee70b2979ac980c837c004d9792cb Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 16 May 1991 15:21:16 +0000 Subject: [PATCH] Fixed the local call VOPs to do the MAYBE-LOAD-STACK-TN for tne new FP last so that it is still valid for loading the value of the new NFP. --- compiler/rt/call.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/rt/call.lisp b/compiler/rt/call.lisp index 329e61df3..14a20abba 100644 --- a/compiler/rt/call.lisp +++ b/compiler/rt/call.lisp @@ -482,10 +482,10 @@ default-value-5 (cur-nfp (current-nfp-tn vop))) (when cur-nfp (store-stack-tn cur-nfp nfp-save)) - (maybe-load-stack-tn cfp-tn fp) (let ((callee-nfp (callee-nfp-tn callee))) (when callee-nfp (maybe-load-stack-tn callee-nfp nfp))) + (maybe-load-stack-tn cfp-tn fp) (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label) (inst b target) @@ -515,10 +515,10 @@ default-value-5 (cur-nfp (current-nfp-tn vop))) (when cur-nfp (store-stack-tn cur-nfp nfp-save)) - (maybe-load-stack-tn cfp-tn fp) (let ((callee-nfp (callee-nfp-tn callee))) (when callee-nfp (maybe-load-stack-tn callee-nfp nfp))) + (maybe-load-stack-tn cfp-tn fp) (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label) (inst b target) @@ -551,10 +551,10 @@ default-value-5 (cur-nfp (current-nfp-tn vop))) (when cur-nfp (store-stack-tn cur-nfp nfp-save)) - (maybe-load-stack-tn cfp-tn fp) (let ((callee-nfp (callee-nfp-tn callee))) (when callee-nfp (maybe-load-stack-tn callee-nfp nfp))) + (maybe-load-stack-tn cfp-tn fp) (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label) (inst b target) -- GitLab