From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 31 Aug 1987 21:19:10 +0000 (+0000)
Subject: Delete noop nodes BEFORE compressing the bblocks.  Otherwise the
X-Git-Tag: 20090517-FFI~13099
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ccdd603ef365fb1dc6158d662fc7a5d212840dbe;p=mit-scheme.git

Delete noop nodes BEFORE compressing the bblocks.  Otherwise the
bblock compressor will encounter them and get confused.
---

diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm
index 666f36841..f2db11b73 100644
--- a/v7/src/compiler/rtlgen/rtlgen.scm
+++ b/v7/src/compiler/rtlgen/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 1.19 1987/08/08 23:19:11 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 1.20 1987/08/31 21:19:10 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -69,7 +69,11 @@ MIT in each case. |#
 	      (*memoizations* '()))
     (set-rgraph-edge!
      rgraph
-     (node->edge (cfg-entry-node (with-new-node-marks generator))))
+     (node->edge
+      (cfg-entry-node
+       (cleanup-noop-nodes
+	(lambda ()
+	  (with-new-node-marks generator))))))
     (set-rgraph-n-registers! rgraph *next-pseudo-number*))
    (with-new-node-marks
     (lambda ()