From a6f199e476f81cf21e6f599c7cf6ae2c7f28a6d6 Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Thu, 20 Oct 1988 18:24:59 +0000 Subject: [PATCH] Added rule for OVERFLOW-TEST in support of generic arithmetic. --- v7/src/compiler/machines/bobcat/rules2.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules2.scm b/v7/src/compiler/machines/bobcat/rules2.scm index bf866b501..54692a746 100644 --- a/v7/src/compiler/machines/bobcat/rules2.scm +++ b/v7/src/compiler/machines/bobcat/rules2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules2.scm,v 4.5 1988/08/29 22:49:54 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules2.scm,v 4.6 1988/10/20 18:24:59 markf Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -276,8 +276,8 @@ MIT in each case. |# (guarantee-signed-fixnum constant) (let ((reference (standard-register-reference register 'DATA))) (if (effective-address/register? reference) - (LAP (CMP L (& ,constant) ,reference)) - (LAP (CMPI L (& ,constant) ,reference))))) + (LAP (CMP L (& ,(* constant #x100)) ,reference)) + (LAP (CMPI L (& ,(* constant #x100)) ,reference))))) (define-rule predicate (FIXNUM-PRED-2-ARGS (? predicate) @@ -301,8 +301,7 @@ MIT in each case. |# (define (fixnum-predicate/memory*constant memory constant cc) (set-standard-branches! cc) (guarantee-signed-fixnum constant) - (LAP (CMPI L (& ,constant) ,memory))) - + (LAP (CMPI L (& ,(* constant #x100)) ,memory))) (define-rule predicate (FIXNUM-PRED-2-ARGS (? predicate) (? memory) -- 2.25.1