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 934a90ebb54c844c33522b16ac4c4ff70a7c0a58..31e6b8258ad356a38ea4fd94acaef7a512365af1 100644 (file)
--- 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