From 9567a3eb930c7f585590fc357c28832ed2b24b8b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 14 May 1990 10:34:06 +0000
Subject: [PATCH] Fixed EMIT-ARG-MOVES to emit the COMPUTE-OLD-NFP VOP
 correctly.

---
 compiler/represent.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index f852e8f2a..85a57fff2 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -368,7 +368,10 @@
 			     (make-representation-tn
 			      (first (primitive-type-scs
 				      *any-primitive-type*))))
-		       (emit-context-template node block vop nfp-tn)
+		       (emit-context-template
+			node block
+			(template-or-lose 'compute-old-nfp)
+			nfp-tn)
 		       (assert (not (sc-number-stack-p (tn-sc nfp-tn))))
 		       nfp-tn)))
 	       (new (emit-move-arg-template node block res val-tn this-fp
-- 
GitLab