From c377087dd9f7f3d63f6979a832e9b99b677531ad Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 3 Sep 1991 18:46:15 +0000 Subject: [PATCH] Fixed ENSURE-BLOCK-START to set up the new block's start-uses. --- compiler/ir1util.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 4535f8037..6a02c0312 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.40 1991/07/18 02:11:56 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.41 1991/09/03 18:46:15 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -210,7 +210,8 @@ (cond ((or (eq kind :unused) (eq (node-cont (block-last block)) cont)) (setf (continuation-block cont) - (make-block-key :start cont :component nil)) + (make-block-key :start cont :component nil + :start-uses (find-uses cont))) (setf (continuation-kind cont) :deleted-block-start)) (t (node-ends-block (continuation-use cont)))))))) -- GitLab