From a2526ae80d9595eb9cca024f06b4fa13ad66ac62 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 24 Mar 1990 13:22:42 +0000 Subject: [PATCH] Fix register*constant methods for plus-fixnum and minus-fixnum. When adding 0 with overflow tests, they were not loading the target. --- v7/src/compiler/machines/spectrum/rulfix.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/rulfix.scm b/v7/src/compiler/machines/spectrum/rulfix.scm index 5efc3fd20..5f6eeb9bb 100644 --- a/v7/src/compiler/machines/spectrum/rulfix.scm +++ b/v7/src/compiler/machines/spectrum/rulfix.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.32 1990/01/25 16:44:44 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rulfix.scm,v 4.33 1990/03/24 13:22:42 jinx Exp $ $MC68020-Header: rules1.scm,v 4.32 90/01/18 22:43:54 GMT cph Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -231,7 +231,7 @@ MIT in each case. |# (let ((value (* constant fixnum-1))) (if overflow? (cond ((zero? constant) - (LAP (SKIP (TR)))) + (LAP (ADD (TR) ,src 0 ,tgt))) ((fits-in-11-bits-signed? value) (LAP (ADDI (NSV) ,value ,src ,tgt))) (else @@ -246,7 +246,7 @@ MIT in each case. |# (let ((value (- (* constant fixnum-1)))) (if overflow? (cond ((zero? constant) - (LAP (SKIP (TR)))) + (LAP (SUB (TR) ,src 0 ,tgt))) ((fits-in-11-bits-signed? value) (LAP (ADDI (NSV) ,value ,src ,tgt))) (else -- 2.25.1