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