From ccdd603ef365fb1dc6158d662fc7a5d212840dbe Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 31 Aug 1987 21:19:10 +0000
Subject: [PATCH] Delete noop nodes BEFORE compressing the bblocks. Otherwise
the bblock compressor will encounter them and get confused.
---
v7/src/compiler/rtlgen/rtlgen.scm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
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 ()
--
2.25.1