Mercurial > hg > octave-nkf

changeset 401:0823483a6277

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-04-15 07:00:46 by jwe]
author jwe
date Fri, 15 Apr 1994 07:00:46 +0000
parents 9b12e22758d5
children 431896eee4db
files src/sysdep.cc
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/sysdep.cc
+++ b/src/sysdep.cc
@@ -1,7 +1,7 @@
 // sysdep.cc                                              -*- C++ -*-
 /*
 
-Copyright (C) 1993 John W. Eaton
+Copyright (C) 1993, 1994 John W. Eaton
 
 This file is part of Octave.
 
@@ -29,6 +29,10 @@
 
 #include "error.h"
 
+#if defined (__386BSD__) && defined (HAVE_FLOATINGPOINT_H)
+#include <floatingpoint.h>
+#endif
+
 #ifdef NeXT
 extern "C"
 {
@@ -57,6 +61,11 @@
 void
 sysdep_init (void)
 {
+#if defined (__386BSD__) && defined (HAVE_FLOATINGPOINT_H)
+// Disable trapping on common exceptions.
+  fpsetmask (~(FP_X_OFL|FP_X_INV|FP_X_DZ|FP_X_DNML|FP_X_UFL|FP_X_IMP));
+#endif
+
 #ifdef NeXT
   NeXT_init ();
 #endif