From 92a4ef00e83e06a8e487e36546ecc097ebbd035f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 10 Mar 1990 16:56:16 +0000 Subject: [PATCH] Changed the ENTRY-INFO-OFFSET to be a GEN-LABEL rather than the BLOCK-LABEL so that ALLOCATE-FRAME can emit it after the block start. --- compiler/entry.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/entry.lisp b/compiler/entry.lisp index f9b772acd..92204f1f3 100644 --- a/compiler/entry.lisp +++ b/compiler/entry.lisp @@ -65,7 +65,7 @@ (internal-fun (functional-entry-function fun))) (make-entry-info :closure-p (not (null (environment-closure (lambda-environment fun)))) - :offset (block-label block) + :offset (gen-label) :name (let ((name (leaf-name internal-fun))) (or name (component-name (block-component block)))) -- GitLab