From e367c04d0c6dbabcb59df28011b370a5c2b831a1 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 13 Feb 1992 05:51:07 +0000
Subject: [PATCH] More changes.
---
v7/src/compiler/machines/i386/insmac.scm | 4 ++--
v7/src/compiler/machines/i386/lapgen.scm | 4 ++--
v7/src/compiler/machines/i386/rulrew.scm | 13 +++++++++----
3 files changed, 13 insertions(+), 8 deletions(-)
diff --git a/v7/src/compiler/machines/i386/insmac.scm b/v7/src/compiler/machines/i386/insmac.scm
index cff59e519..6db10f57c 100644
--- 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 05a4a735d..c572559c8 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.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 d2357563b..9e557937e 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.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)
--
2.25.1