More changes.

diff --git a/v7/src/compiler/machines/i386/insmac.scm b/v7/src/compiler/machines/i386/insmac.scm
index cff59e519cf1511850d3308ebaeb2bc4c4392927..6db10f57c675c68ad46781e0565b22e3a56cc274 100644 (file)
--- a/v7/src/compiler/machines/i386/insmac.scm
+++ b/v7/src/compiler/machines/i386/insmac.scm
@@ -1,6 +1,6 @@
->#| -*-Scheme-*-
+#| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.5 1992/02/13 05:42:40 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.6 1992/02/13 05:43:25 jinx Exp $
 $Vax-Header: insmac.scm,v 1.12 89/05/17 20:29:15 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology

diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm
index 05a4a735dabca3aeb1ef6825d05a009b58aa1732..c572559c8b79d8009273c30b5db62842054c9d2c 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.7 1992/02/11 14:47:53 jinx Exp $
+$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 $
 $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
@@ -426,7 +426,7 @@ MIT in each case. |#
                                                       ,index))
                             (loop (cdr names) (+ index 4)))))
                 `(BEGIN ,@(loop names start)))))
-  (define-entries (* 16 4)
+  (define-entries #x40                 ; (* 16 4)
     scheme-to-interface                        ; Main entry point (only one necessary)
     scheme-to-interface/call           ; Used by rules3&4, for convenience.
     trampoline-to-interface            ; Used by trampolines, for convenience.

diff --git a/v7/src/compiler/machines/i386/rulrew.scm b/v7/src/compiler/machines/i386/rulrew.scm
index d2357563befb55b2b3f48a68d064597622fb83f3..9e557937e91cff3ca7ff870c28830ba91d4ff67f 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.2 1992/02/05 05:03:36 jinx Exp $
+$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 $
 $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
@@ -246,8 +246,11 @@ 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)))
-   operand))
+     (rtl:make-flonum-2-args 'FLONUM-MULTIPLY operand operand false)
+     false)
+    false)
+   operand
+   false))
 
 ;; asin (x) = atan (x / (sqrt (1 - x^2)))
 
@@ -261,7 +264,9 @@ 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)))))
+     (rtl:make-flonum-2-args 'FLONUM-MULTIPLY operand operand false))
+    false)
+   false))
 
 (define (rtl:constant-flonum-test expression predicate)
   (and (rtl:object->float? expression)