From 5e43493512d1b3bddb9daaed5a48d8c841757d2f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 8 Aug 1987 22:03:38 +0000 Subject: [PATCH] Discard information a bit more aggressively. --- v7/src/compiler/rtlbase/rtlcfg.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlbase/rtlcfg.scm b/v7/src/compiler/rtlbase/rtlcfg.scm index 39268215f..e73340f6b 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 1.3 1987/08/07 17:05:00 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 1.4 1987/08/08 22:03:38 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -150,4 +150,8 @@ MIT in each case. |# (let ((instructions (loop (bblock-instructions bblock)))) (if instructions (set-bblock-instructions! bblock instructions) - (snode-delete! bblock)))) \ No newline at end of file + (begin + (snode-delete! bblock) + (let ((rgraph *current-rgraph*)) + (set-rgraph-bblocks! rgraph + (delq! bblock (rgraph-bblocks rgraph)))))))) \ No newline at end of file -- 2.25.1