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