From 4776725685b0f1dc985e0b9f88643bbfca8f5cfd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 7 Sep 1988 06:25:33 +0000 Subject: [PATCH] Remove code to delete basic blocks list from rgraphs. This is now handled by the compiler top level. --- v7/src/compiler/rtlopt/ralloc.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/rtlopt/ralloc.scm b/v7/src/compiler/rtlopt/ralloc.scm index 54527b109..e60218a8a 100644 --- a/v7/src/compiler/rtlopt/ralloc.scm +++ b/v7/src/compiler/rtlopt/ralloc.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/ralloc.scm,v 1.15 1988/06/14 08:43:53 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/ralloc.scm,v 1.16 1988/09/07 06:25:33 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -39,7 +39,7 @@ MIT in each case. |# (package (register-allocation) -(define (register-allocation rgraphs) +(define-export (register-allocation rgraphs) (for-each (lambda (rgraph) (let ((n-temporaries (walk-rgraph rgraph))) (if (> n-temporaries number-of-temporary-registers) @@ -52,10 +52,7 @@ MIT in each case. |# rgraph (make-vector n-registers false)) (fluid-let ((*current-rgraph* rgraph)) - (walk-bblocks n-registers - (let ((bblocks (rgraph-bblocks rgraph))) - (set-rgraph-bblocks! rgraph false) - bblocks))))) + (walk-bblocks n-registers (rgraph-bblocks rgraph))))) (define (walk-bblocks n-registers bblocks) ;; First, renumber all the registers remaining to be allocated. -- 2.25.1