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 24dd8a69ded205519d5bfe5a0d3851f57828e5a7..7ce13a6542442f4f02ae9fa2e896443b6b1c0863 100644 (file)
--- 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:')