From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 13 Feb 1992 16:46:55 +0000 (+0000)
Subject: More changes.
X-Git-Tag: 20090517-FFI~9759
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cb2e1406aec01946ef751ddb550eabf5068ffd49;p=mit-scheme.git

More changes.
---

diff --git a/v7/src/compiler/machines/i386/insutl.scm b/v7/src/compiler/machines/i386/insutl.scm
index 1811725c9..af6a476d4 100644
--- a/v7/src/compiler/machines/i386/insutl.scm
+++ b/v7/src/compiler/machines/i386/insutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insutl.scm,v 1.7 1992/02/13 07:48:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insutl.scm,v 1.8 1992/02/13 16:46:43 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -180,16 +180,10 @@ MIT in each case. |#
   (register false read-only true)
   (extra '() read-only true))
 
-(define-integrable (fits-in-signed-byte? value)
-  (and (>= value -128) (< value 128)))
-
 (define (sign-extended-byte value)
   (and (fits-in-signed-byte? value)
        value))
 
-(define-integrable (fits-in-unsigned-byte? value)
-  (and (>= value 0) (< value 128)))
-
 (define (zero-extended-byte value)
   (and (fits-in-unsigned-byte? value)
        value))
diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm
index 4734960d7..7c5fb52b5 100644
--- a/v7/src/compiler/machines/i386/machin.scm
+++ b/v7/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.7 1992/02/13 05:31:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.8 1992/02/13 16:46:55 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -177,6 +177,12 @@ MIT in each case. |#
 (define-integrable register-block/dynamic-link-offset 4) ; compiler temp
 (define-integrable register-block/utility-arg4-offset 9) ; closure free
 (define-integrable register-block/lexpr-primitive-arity-offset 7)
+
+(define-integrable (fits-in-signed-byte? value)
+  (and (>= value -128) (< value 128)))
+
+(define-integrable (fits-in-unsigned-byte? value)
+  (and (>= value 0) (< value 128)))
 
 ;;;; RTL Generator Interface