From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 19 Feb 1992 04:17:17 +0000 (+0000)
Subject: Disable FLONUM-EXP because the F2XM1 instruction is broken on some
X-Git-Tag: 20090517-FFI~9677
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=14adf8ccae62bcc102a46df67a2b45cc74894509;p=mit-scheme.git

Disable FLONUM-EXP because the F2XM1 instruction is broken on some
hardware.
---

diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm
index 934a90ebb..31e6b8258 100644
--- a/v7/src/compiler/machines/i386/machin.scm
+++ b/v7/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.10 1992/02/18 22:57:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.11 1992/02/19 04:17:17 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -347,4 +347,7 @@ MIT in each case. |#
   '(DIVIDE-FIXNUM GCD-FIXNUM &/
 		  ;; The rewriting rules in rulrew.scm don't work.
 		  ;; Treat as not available.
-		  FLONUM-ASIN FLONUM-ACOS))
\ No newline at end of file
+		  FLONUM-ASIN FLONUM-ACOS
+		  ;; Disabled for now.  The F2XM1 instruction is
+		  ;; broken on the 387 (or at least some of them).
+		  FLONUM-EXP))
\ No newline at end of file