From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 12 Aug 1993 05:33:14 +0000 (+0000)
Subject: Fix the register*constant fixnum-multiply rule to match the change to
X-Git-Tag: 20090517-FFI~8089
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62a91c659e443856d97007064f38c3ca9c3df86f;p=mit-scheme.git

Fix the register*constant fixnum-multiply rule to match the change to
the corresponding rewrite rules.
---

diff --git a/v7/src/compiler/machines/spectrum/rulfix.scm b/v7/src/compiler/machines/spectrum/rulfix.scm
index c9473e048..0963d0b58 100644
--- a/v7/src/compiler/machines/spectrum/rulfix.scm
+++ b/v7/src/compiler/machines/spectrum/rulfix.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulfix.scm,v 4.45 1993/07/01 03:24:03 gjr Exp $
+$Id: rulfix.scm,v 4.46 1993/08/12 05:33:14 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -474,10 +474,15 @@ MIT in each case. |#
   fixnum-methods/2-args/register*constant
   (lambda (constant ovflw?)
     (let ((factor (abs constant)))
+      #|
       (or (integer-log-base-2? factor)
 	  (and (<= factor 64)
 	       (or (not ovflw?)
-		   (<= factor (expt 2 scheme-type-width)))))))
+		   (<= factor (expt 2 scheme-type-width)))))
+      |#
+      (or (not ovflw?)
+	  (<= factor 64)
+	  (integer-log-base-2? factor))))
 
   (lambda (tgt src constant overflow?)
     (guarantee-signed-fixnum constant)