More changes.

diff --git a/v7/src/compiler/machines/i386/insutl.scm b/v7/src/compiler/machines/i386/insutl.scm
index 1811725c9018f8f66d7703708d6e31e7eb5dee26..af6a476d40b23cb64c8bd66004fe9807feb05aab 100644 (file)
--- 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 4734960d7281a6ba1768bf455e8b466b8b95f031..7c5fb52b5262c596da2f17b33236b806a6e9893c 100644 (file)
--- 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)))
 \f
 ;;;; RTL Generator Interface