From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 13 Feb 1992 03:05:15 +0000 (+0000)
Subject: More changes.
X-Git-Tag: 20090517-FFI~9780
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b56e4a2d0926337947559547c299750949582f9;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 8f6374d38..608e289c8 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.5 1992/02/13 02:54:53 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insutl.scm,v 1.6 1992/02/13 03:03:10 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -38,6 +38,11 @@ MIT in each case. |#
 
 ;;;; Addressing modes
 
+;; *** We can't really handle switching these right now. ***
+
+(define-integrable *ADDRESS-SIZE* 32)
+(define-integrable *OPERAND-SIZE* 32)
+
 ;; r/m part of ModR/M byte and SIB byte.
 ;; These are valid only for 32-bit addressing.
 
diff --git a/v7/src/compiler/machines/i386/rgspcm.scm b/v7/src/compiler/machines/i386/rgspcm.scm
index 9be5d8f2a..630dd2041 100644
--- a/v7/src/compiler/machines/i386/rgspcm.scm
+++ b/v7/src/compiler/machines/i386/rgspcm.scm
@@ -1,7 +1,7 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rgspcm.scm,v 1.1 1992/02/13 03:01:18 jinx Exp $
-$MC68020-Header: rgspcm.scm,v 4.1 87/12/30 07:05:38 GMT cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rgspcm.scm,v 1.2 1992/02/13 03:01:52 jinx Exp $
+$MC68020-Header: /scheme/compiler/bobcat/RCS/rgspcm.scm,v 4.2 1991/05/06 23:17:03 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology