From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 18 Feb 1992 16:09:39 +0000 (+0000)
Subject: Add missing rules (eq-test to machine constant) generated by
X-Git-Tag: 20090517-FFI~9693
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c661a2f425b31e7b6f21a81217528c0e4883192a;p=mit-scheme.git

Add missing rules (eq-test to machine constant) generated by
rulrew.scm.
---

diff --git a/v7/src/compiler/machines/spectrum/rules2.scm b/v7/src/compiler/machines/spectrum/rules2.scm
index c67240d22..1fe383927 100644
--- a/v7/src/compiler/machines/spectrum/rules2.scm
+++ b/v7/src/compiler/machines/spectrum/rules2.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rules2.scm,v 4.12 1990/01/25 16:40:55 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rules2.scm,v 4.13 1992/02/18 16:09:39 jinx Exp $
 $MC68020-Header: rules2.scm,v 4.12 90/01/18 22:44:04 GMT cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -42,6 +42,14 @@ MIT in each case. |#
   (EQ-TEST (REGISTER (? source1)) (REGISTER (? source2)))
   (compare '= (standard-source! source1) (standard-source! source2)))
 
+(define-rule predicate
+  (EQ-TEST (MACHINE-CONSTANT 0) (REGISTER (? register)))
+  (compare-immediate '= 0 (standard-source! register)))
+
+(define-rule predicate
+  (EQ-TEST (REGISTER (? register)) (MACHINE-CONSTANT 0))
+  (compare-immediate '= 0 (standard-source! register)))
+
 (define-rule predicate
   ;; test for register EQ? to constant
   (EQ-TEST (CONSTANT (? constant)) (REGISTER (? register)))