From 066ea7ea615afb8497fd3d22c22af8d9bfe07327 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 12 Aug 1992 01:29:01 +0000 Subject: [PATCH] Change FP initialization for DOS until we get FP trap handling. --- v7/src/microcode/cmpauxmd/i386.m4 | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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:') -- 2.25.1