From 14adf8ccae62bcc102a46df67a2b45cc74894509 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 19 Feb 1992 04:17:17 +0000
Subject: [PATCH] Disable FLONUM-EXP because the F2XM1 instruction is broken on
 some hardware.

---
 v7/src/compiler/machines/i386/machin.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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
-- 
2.25.1