From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 17 Feb 1992 21:41:52 +0000 (+0000)
Subject: Define add-pre-cse-rewriting-rule! so that machines/??/rulrew.scm can
X-Git-Tag: 20090517-FFI~9721
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c274d5f4691b681b4d8d2d06a7c39dc7694d4c6a;p=mit-scheme.git

Define add-pre-cse-rewriting-rule! so that machines/??/rulrew.scm can
use it.
---

diff --git a/v7/src/compiler/rtlopt/rerite.scm b/v7/src/compiler/rtlopt/rerite.scm
index 4974d641b..9480b0c48 100644
--- a/v7/src/compiler/rtlopt/rerite.scm
+++ b/v7/src/compiler/rtlopt/rerite.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rerite.scm,v 1.1 1990/01/18 22:49:26 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rerite.scm,v 1.2 1992/02/17 21:41:52 jinx Exp $
 
-Copyright (c) 1990 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -33,6 +33,7 @@ promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
 ;;;; RTL Rewriting
+;;; package: (compiler rtl-optimizer rtl-rewriting)
 
 (declare (usual-integrations))
 
@@ -57,6 +58,9 @@ MIT in each case. |#
 (define (add-rewriting-rule! pattern result-procedure)
   (new-rewriting-rule! rules:post-cse pattern result-procedure))
 
+(define (add-pre-cse-rewriting-rule! pattern result-procedure)
+  (new-rewriting-rule! rules:pre-cse pattern result-procedure))
+
 (define (walk-rgraphs rules rgraphs)
   (if (not (and (null? (rewriting-rules/assignment rules))
 		(null? (rewriting-rules/statement rules))
@@ -164,9 +168,7 @@ MIT in each case. |#
 		 (error "illegal RTL type" keyword))))))
   pattern)
 
-(define-rule
-  (lambda (pattern result-procedure)
-    (new-rewriting-rule! rules:pre-cse pattern result-procedure))
+(define-rule add-pre-cse-rewriting-rule!
   (OBJECT->ADDRESS (? source))
   (QUALIFIER (value-class=address? (rtl:expression-value-class source)))
   source)
\ No newline at end of file