From 1311604a10c64abd35e9cd58875cf73bcb98e7a7 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 31 Mar 1992 19:18:10 +0000 Subject: [PATCH] Edit bug in last change. --- v7/src/compiler/machines/spectrum/rulrew.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/rulrew.scm b/v7/src/compiler/machines/spectrum/rulrew.scm index 6ad9868bb..2d259136a 100644 --- a/v7/src/compiler/machines/spectrum/rulrew.scm +++ b/v7/src/compiler/machines/spectrum/rulrew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulrew.scm,v 1.5 1992/03/31 01:15:28 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulrew.scm,v 1.6 1992/03/31 19:18:10 jinx Exp $ Copyright (c) 1990-91 Massachusetts Institute of Technology @@ -146,7 +146,7 @@ MIT in each case. |# #F) (QUALIFIER (and (rtl:register? operand-1) (rtl:fixnum-value? operand-2))) - (rtl:make-fixnum-2-args 'MULTIPLY-FIXNUM operand-1 operand-2 #F)) + (rtl:make-fixnum-2-args 'FIXNUM-LSH operand-1 operand-2 #F)) (define-rule rewriting (FIXNUM-2-ARGS MULTIPLY-FIXNUM @@ -175,7 +175,7 @@ MIT in each case. |# #F) (QUALIFIER (and (rtl:register? operand-1) (rtl:constant-power-of-2-magnitude? operand-2))) - (rtl:make-fixnum-2-args 'MULTIPLY-FIXNUM operand-1 operand-2 #F)) + (rtl:make-fixnum-2-args 'FIXNUM-QUOTIENT operand-1 operand-2 #F)) (define-rule rewriting (FIXNUM-2-ARGS FIXNUM-REMAINDER @@ -184,7 +184,7 @@ MIT in each case. |# #F) (QUALIFIER (and (rtl:register? operand-1) (rtl:constant-power-of-2-magnitude? operand-2))) - (rtl:make-fixnum-2-args 'MULTIPLY-FIXNUM operand-1 operand-2 #F)) + (rtl:make-fixnum-2-args 'FIXNUM-REMAINDER operand-1 operand-2 #F)) ;; These are used by vector-ref and friends with computed indices. @@ -268,6 +268,3 @@ MIT in each case. |# (spectrum-type-optimizable? (rtl:machine-constant-value type)))) (rtl:make-cons-pointer type datum)) |# - - - \ No newline at end of file -- 2.25.1