From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 12 Aug 1992 01:29:01 +0000 (+0000)
Subject: Change FP initialization for DOS until we get FP trap handling.
X-Git-Tag: 20090517-FFI~9137
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=066ea7ea615afb8497fd3d22c22af8d9bfe07327;p=mit-scheme.git

Change FP initialization for DOS until we get FP trap handling.
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 24dd8a69d..7ce13a654 100644
--- a/v7/src/microcode/cmpauxmd/i386.m4
+++ b/v7/src/microcode/cmpauxmd/i386.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.24 1992/07/28 14:17:51 jinx Exp $
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.25 1992/08/12 01:29:01 jinx Exp $
 ###
 ###	Copyright (c) 1992 Massachusetts Institute of Technology
 ###
@@ -333,10 +333,14 @@ IF387(`
 	OP(sub,l)	TW(IMM(4),REG(esp))
 	fclex
 	fnstcw	WOF(-2,REG(ebp))
-	# Set rounding mode to round-to-even, precision control to double,
-	# mask the inexact result exception, and unmask the other exceptions.
+	# On Unix, set rounding mode to round-to-even, precision control to
+	# double, mask the inexact result exception, and unmask the other exceptions.
+	# On DOS, set rounding mode to round-to-even, precision control to
+	# double and and mask all exceptions.
 	OP(and,w)	TW(IMM(HEX(f0e0)),WOF(-2,REG(ebp)))
-	OP(or,w)	TW(IMM(HEX(0220)),WOF(-2,REG(ebp)))
+	ifdef(`DOS',
+	      `OP(or,w)	TW(IMM(HEX(023f)),WOF(-2,REG(ebp)))',
+	      `OP(or,w)	TW(IMM(HEX(0220)),WOF(-2,REG(ebp)))')
 	fldcw	WOF(-2,REG(ebp))
 
 i386_initialize_no_fp:')