More changes.

diff --git a/v7/src/compiler/machines/i386/instrf.scm b/v7/src/compiler/machines/i386/instrf.scm
index 055f903a8dbb742bb90e15007679a9c1fbbd45d9..24a65e8a5001ea4790afeaee64115768b5fd66fa 100644 (file)
--- a/v7/src/compiler/machines/i386/instrf.scm
+++ b/v7/src/compiler/machines/i386/instrf.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.2 1992/02/09 15:01:39 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.3 1992/02/13 05:57:19 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -137,7 +137,7 @@ MIT in each case. |#
 (define-instruction FFREE
   (((ST (? i)))
    (BYTE (8 #xdd)
-        (8 (+ #x c0 i)))))
+        (8 (+ #xc0 i)))))
 
 (let-syntax
     ((define-flonum-integer-comparison

diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm
index c572559c8b79d8009273c30b5db62842054c9d2c..5adf0665b0cec6e45f8186673df30789bf3fb8ef 100644 (file)
--- a/v7/src/compiler/machines/i386/lapgen.scm
+++ b/v7/src/compiler/machines/i386/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.8 1992/02/13 05:48:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.9 1992/02/13 05:52:58 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -268,7 +268,7 @@ MIT in each case. |#
 
 (define-integrable (cache-label! label temporary)
   (set! *register-map*
-       (set-machine-register-label *register-map* alias label))
+       (set-machine-register-label *register-map* temporary label))
   unspecific)
 
 (define (compare/register*register reg1 reg2)
@@ -321,8 +321,8 @@ MIT in each case. |#
   (load-alias-register! register 'GENERAL))
 
 (define (offset->indirect-reference! rtl-expr)
-  (indirect-reference! (rtl:register-number (rtl:offset-base offset))
-                      (rtl:offset-number offset)))
+  (indirect-reference! (rtl:register-number (rtl:offset-base rtl-expr))
+                      (rtl:offset-number rtl-expr)))
 
 (define (object->type target)
   (LAP (SHR W ,target (& ,scheme-datum-width))))

diff --git a/v7/src/compiler/machines/i386/rulrew.scm b/v7/src/compiler/machines/i386/rulrew.scm
index 9e557937e91cff3ca7ff870c28830ba91d4ff67f..ddc64f28310cb8efaf9d0b0c36a2413d645f0e24 100644 (file)
--- a/v7/src/compiler/machines/i386/rulrew.scm
+++ b/v7/src/compiler/machines/i386/rulrew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulrew.scm,v 1.3 1992/02/13 05:51:07 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulrew.scm,v 1.4 1992/02/13 05:55:35 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rulrew.scm,v 1.4 1991/10/25 06:50:06 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -264,7 +264,8 @@ MIT in each case. |#
     (rtl:make-flonum-2-args
      'FLONUM-SUBTRACT
      (rtl:make-object->float (rtl:make-constant 1.))
-     (rtl:make-flonum-2-args 'FLONUM-MULTIPLY operand operand false))
+     (rtl:make-flonum-2-args 'FLONUM-MULTIPLY operand operand false)
+     false)
     false)
    false))