From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 10 Jun 1993 04:59:46 +0000 (+0000)
Subject: Fix incorrect use of make-machine-register.  It should be
X-Git-Tag: 20090517-FFI~8341
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d2826207801f3aca2280cf9b077ecc5edb0b0232;p=mit-scheme.git

Fix incorrect use of make-machine-register.  It should be
make-machine-constant.
---

diff --git a/v7/src/compiler/machines/C/rulrew.scm b/v7/src/compiler/machines/C/rulrew.scm
index 65e52c47a..2ce274e5f 100644
--- a/v7/src/compiler/machines/C/rulrew.scm
+++ b/v7/src/compiler/machines/C/rulrew.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rulrew.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: rulrew.scm,v 1.2 1993/06/10 04:59:46 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -120,7 +120,7 @@ MIT in each case. |#
 (define-rule rewriting
   (EQ-TEST (REGISTER (? comparand register-known-value)) (? source))
   (QUALIFIER (rtl:immediate-zero-constant? comparand))
-  (list 'EQ-TEST source (rtl:make-machine-register 0)))
+  (list 'EQ-TEST source (rtl:make-machine-constant 0)))
 
 (define (rtl:immediate-zero-constant? expression)
   (cond ((rtl:constant? expression)