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 585ef0d276c1da8b4d912c0256b4a96261ae4b36..505baaf1ef21f6fbcc53d3612157a4cb5bfb97ee 100644 (file)
--- 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))
 \f
 (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 5d3a2e9305f82c235450e68213e5a11ee06ae2bd..20c72f9aeed4051aeba9ce168e3ab5c8e9a547fb 100644 (file)
--- 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