From a0892437e5d4582464024147e5c0a5d90fa5a103 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 17 Mar 1995 03:46:53 +0000 Subject: [PATCH] *** empty log message *** --- v8/src/compiler/machines/spectrum/rulrew.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/machines/spectrum/rulrew.scm b/v8/src/compiler/machines/spectrum/rulrew.scm index cf1c4345c..f4624dc84 100644 --- a/v8/src/compiler/machines/spectrum/rulrew.scm +++ b/v8/src/compiler/machines/spectrum/rulrew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rulrew.scm,v 1.3 1995/03/16 05:52:05 adams Exp $ +$Id: rulrew.scm,v 1.4 1995/03/17 03:46:53 adams Exp $ Copyright (c) 1990-1993 Massachusetts Institute of Technology @@ -177,11 +177,11 @@ MIT in each case. |# (fits-in-5-bits-signed? (known-fixnum-constant/fixnum-value comparand))) (list `EQ-TEST comparand source)) -(define-rule rewriting +(define-rule rewriting ;add-pre-cse-rewriting-rule! (EQ-TEST (? source) (REGISTER (? comparand register-known-fixnum-constant))) (QUALIFIER (fits-in-5-bits-signed? (known-fixnum-constant/fixnum-value comparand))) - (list `EQ-TEST comparand source)) + (list `EQ-TEST source comparand)) (define (rtl:immediate-zero-constant? expression) (cond ((rtl:constant? expression) -- 2.25.1