From e06beed29ffab844aa55a36d48a828eb345e0466 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 7 Nov 1988 13:56:13 +0000 Subject: [PATCH] (bblock-compress!): when counting previous edges to determine if this is the beginning of a basic block, we must include edges which have no left node. --- v7/src/compiler/rtlbase/rtlcfg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlbase/rtlcfg.scm b/v7/src/compiler/rtlbase/rtlcfg.scm index f45fa4168..fdfc5aea7 100644 --- a/v7/src/compiler/rtlbase/rtlcfg.scm +++ b/v7/src/compiler/rtlbase/rtlcfg.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.5 1988/11/06 14:38:21 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.6 1988/11/07 13:56:13 cph Exp $ Copyright (c) 1987, 1988 Massachusetts Institute of Technology @@ -115,7 +115,7 @@ MIT in each case. |# (let ((next (snode-next bblock))) (if next (begin - (if (node-previous=1? next) + (if (null? (cdr (node-previous-edges next))) (begin (set-rinst-next! (rinst-last (bblock-instructions bblock)) -- 2.25.1