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