From ac6a830aba9b737c8162fe0015b512738fb0d9f3 Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Thu, 19 May 1988 18:37:36 +0000 Subject: [PATCH] Oops. Small bug with fixnum additions and subtractions of constants. --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index c26121498..6971a72a7 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.7 1988/05/19 15:29:00 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.8 1988/05/19 18:37:36 markf Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -415,7 +415,7 @@ MIT in each case. |# (let ((constant (fixnum-constant (rtl:constant-value addend)))) (if (and (<= constant 8) (>= constant 1)) (INST (ADDQ L (& ,(modulo constant 8)) ,target)) - (INST (ADD L (& ,(modulo constant 8)) ,target))))) + (INST (ADD L (& ,constant) ,target))))) ((UNASSIGNED) ; this needs to be looked at (LAP ,(load-non-pointer type-code:unassigned 0 target))) (else @@ -472,7 +472,7 @@ MIT in each case. |# (let ((constant (fixnum-constant (rtl:constant-value subtrahend)))) (if (and (<= constant 8) (>= constant 1)) (INST (SUBQ L (& ,(modulo constant 8)) ,target)) - (INST (SUB L (& ,(modulo constant 8)) ,target))))) + (INST (SUB L (& ,constant) ,target))))) ((UNASSIGNED) ; this needs to be looked at (LAP ,(load-non-pointer type-code:unassigned 0 target))) (else -- 2.25.1