From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Apr 1989 05:12:06 +0000 (+0000)
Subject: Add new RTL optimization pass: `invertible-expression-elimination'.
X-Git-Tag: 20090517-FFI~12107
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=70552cde7cb6ffe968bb1493785454507cd79b74;p=mit-scheme.git

Add new RTL optimization pass: `invertible-expression-elimination'.
---

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index 585ef0d27..505baaf1e 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.21 1989/04/21 17:22:51 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.22 1989/04/26 05:11:52 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -497,11 +497,10 @@ MIT in each case. |#
   (files "rtlopt/rdebug")
   (parent (compiler)))
 
-(define-package (compiler rtl-optimizer register-allocation)
-  (files "rtlopt/ralloc")
+(define-package (compiler rtl-optimizer invertible-expression-elimination)
+  (files "rtlopt/rinvex")
   (parent (compiler rtl-optimizer))
-  (export (compiler top-level) register-allocation))
-
+  (export (compiler top-level) invertible-expression-elimination))
 (define-package (compiler rtl-optimizer lifetime-analysis)
   (files "rtlopt/rlife")
   (parent (compiler rtl-optimizer))
@@ -512,6 +511,11 @@ MIT in each case. |#
   (files "rtlopt/rdeath")
   (parent (compiler rtl-optimizer))
   (export (compiler top-level) code-compression))
+
+(define-package (compiler rtl-optimizer register-allocation)
+  (files "rtlopt/ralloc")
+  (parent (compiler rtl-optimizer))
+  (export (compiler top-level) register-allocation))
 
 (define-package (compiler lap-syntaxer)
   (files "back/lapgn1"			;LAP generator
diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index 5d3a2e930..20c72f9ae 100644
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.41 1989/04/21 15:20:37 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 4.42 1989/04/26 05:12:06 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -41,4 +41,4 @@ MIT in each case. |#
 	    ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
 	  '((COMPILER MACROS)
 	    (COMPILER DECLARATIONS)))
-(add-system! (make-system "Liar" 4 41 '()))
\ No newline at end of file
+(add-system! (make-system "Liar" 4 42 '()))
\ No newline at end of file