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