From 9ef035ef7694f78d37b07df92afe224c670da1ca Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 8 Feb 1992 18:16:00 +0000 Subject: [PATCH] More changes. --- v7/src/compiler/machines/i386/rulfix.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/i386/rulfix.scm b/v7/src/compiler/machines/i386/rulfix.scm index 35143d190..99c17dbd1 100644 --- a/v7/src/compiler/machines/i386/rulfix.scm +++ b/v7/src/compiler/machines/i386/rulfix.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.12 1992/02/08 17:45:37 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.13 1992/02/08 18:16:00 jinx Exp $ $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -258,9 +258,6 @@ MIT in each case. |# (LAP (XOR W ,target ,target)) (LAP (MOV W ,target (& ,(* constant fixnum-1)))))) -(define-integrable (fits-in-signed-byte? value) - (and (>= value -128) (< value 128))) - (define (add-fixnum-constant target constant overflow?) (let ((value (* constant fixnum-1))) (cond ((and (zero? value) (not overflow?)) -- 2.25.1