From b8f43c35484feac6df0ea6a337ca13edb55d88ad Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Dec 1988 17:03:19 +0000
Subject: [PATCH] Repackage lifetime-analysis and register-allocation code.

---
 v7/src/compiler/machines/bobcat/compiler.pkg | 30 +++++++++++---------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index bf01b546e..ada3fa907 100644
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.13 1988/12/13 13:01:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.14 1988/12/15 17:03:19 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -281,6 +281,7 @@ MIT in each case. |#
   (files "fgopt/subfre")
   (parent (compiler fg-optimizer))
   (export (compiler top-level) compute-subproblem-free-variables)
+  (export (compiler fg-optimizer) map-union)
   (export (compiler fg-optimizer subproblem-ordering)
 	  new-subproblem/compute-free-variables!))
 
@@ -364,24 +365,27 @@ MIT in each case. |#
 	 "rtlopt/rcsesr"		;CSE stack references
 	 )
   (parent (compiler))
-  (export (compiler top-level)
-	  common-subexpression-elimination))
+  (export (compiler top-level) common-subexpression-elimination))
 
 (define-package (compiler rtl-optimizer)
-  (files "rtlopt/rlife"			;RTL register lifetime analyzer
-	 "rtlopt/rdebug"		;RTL optimizer debugging output
-	 "rtlopt/ralloc"		;RTL register allocation
-	 )
-  (parent (compiler))
-  (export (compiler top-level)
-	  lifetime-analysis
-	  register-allocation))
+  (files "rtlopt/rdebug")
+  (parent (compiler)))
+
+(define-package (compiler rtl-optimizer register-allocation)
+  (files "rtlopt/ralloc")
+  (parent (compiler rtl-optimizer))
+  (export (compiler top-level) register-allocation))
+
+(define-package (compiler rtl-optimizer lifetime-analysis)
+  (files "rtlopt/rlife")
+  (parent (compiler rtl-optimizer))
+  (export (compiler top-level) lifetime-analysis)
+  (export (compiler rtl-optimizer code-compression) mark-set-registers!))
 
 (define-package (compiler rtl-optimizer code-compression)
   (files "rtlopt/rdeath")
   (parent (compiler rtl-optimizer))
-  (export (compiler top-level)
-	  code-compression))
+  (export (compiler top-level) code-compression))
 
 (define-package (compiler debugging-information)
   (files "base/infnew")
-- 
2.25.1