From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Jan 1996 23:30:48 +0000 (+0000)
Subject: Make sure that floating-point control word is properly initialized
X-Git-Tag: 20090517-FFI~5714
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=543fdf35198bf516ce171fb9654e15878eda5434;p=mit-scheme.git

Make sure that floating-point control word is properly initialized
under OS/2.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index c4787d04b..598246654 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.86 1995/10/08 15:23:41 cph Exp $
+$Id: cmpint.c,v 1.87 1996/01/04 23:30:48 cph Exp $
 
-Copyright (c) 1989-95 Massachusetts Institute of Technology
+Copyright (c) 1989-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -3628,6 +3628,10 @@ DEFUN (compiler_initialize, (fasl_p), long fasl_p)
        `setjmp' and restores it on `longjmp', so we must initialize
        the register before `setjmp' is called.  */
     interface_initialize ();
+#endif
+#ifdef _OS2
+    /* Same as for Sony.  */
+    i386_interface_initialize ();
 #endif
   }
   return;