From c274d5f4691b681b4d8d2d06a7c39dc7694d4c6a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 17 Feb 1992 21:41:52 +0000 Subject: [PATCH] Define add-pre-cse-rewriting-rule! so that machines/??/rulrew.scm can use it. --- v7/src/compiler/rtlopt/rerite.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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 -- 2.25.1