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

More changes.
---

diff --git a/v7/src/compiler/machines/i386/instrf.scm b/v7/src/compiler/machines/i386/instrf.scm
index 055f903a8..24a65e8a5 100644
--- 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 c572559c8..5adf0665b 100644
--- 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 9e557937e..ddc64f283 100644
--- 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))