From 2bdec47de20d4ff215681635ddf91ae30230c6d4 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 25 Aug 1991 18:14:38 +0000
Subject: [PATCH] In allocate-full-call-frame, don't save the result on the
 stack if we didn't do anything.

---
 compiler/rt/call.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/rt/call.lisp b/compiler/rt/call.lisp
index 14a20abba..301e38ad7 100644
--- a/compiler/rt/call.lisp
+++ b/compiler/rt/call.lisp
@@ -234,7 +234,8 @@
 ;;;
 (define-vop (allocate-full-call-frame)
   (:info nargs)
-  (:results (res :scs (word-pointer-reg)))
+  (:results (res :scs (word-pointer-reg)
+		 :load-if (> nargs register-arg-count)))
   (:generator 2
     (when (> nargs register-arg-count)
       (move res csp-tn)
-- 
GitLab