changeset 505:f264c1454c2b

[project @ 1994-07-09 06:02:45 by jwe]
author jwe
date Sat, 09 Jul 1994 06:04:22 +0000
parents be155b3d5a2f
children 0f388340e607
files configure.in src/sysdep.cc
diffstat 2 files changed, 36 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/configure.in	Fri Jul 08 23:52:12 1994 +0000
+++ b/configure.in	Sat Jul 09 06:04:22 1994 +0000
@@ -21,7 +21,7 @@
 dnl along with Octave; see the file COPYING.  If not, write to the Free
 dnl Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 dnl
-AC_REVISION($Revision: 1.32 $)dnl
+AC_REVISION($Revision: 1.33 $)dnl
 AC_PREREQ(1.8)dnl
 AC_INIT(src/octave.cc)
 AC_CONFIG_HEADER(config.h)
@@ -474,6 +474,12 @@
     ;;
   esac
 done
+dnl
+AC_COMPILE_CHECK([struct exception in math.h],
+[#include <math.h>],
+[struct exception *x; x->type; x->name;],
+AC_DEFINE(EXCEPTION_IN_MATH, 1), [])dnl
+dnl
 AC_SUBST(TERMLIBS)
 dnl
 dnl Define VOID_SIGHANDLER for readline.
--- a/src/sysdep.cc	Fri Jul 08 23:52:12 1994 +0000
+++ b/src/sysdep.cc	Sat Jul 09 06:04:22 1994 +0000
@@ -113,6 +113,35 @@
 #endif
 }
 
+
+#if defined (EXCEPTION_IN_MATH)
+extern "C"
+{
+int
+matherr (struct exception *x)
+{
+// Possibly print our own message someday.  Should probably be
+// user-switchable.
+
+  switch (x->type)
+    {
+    case DOMAIN:
+    case SING:
+    case OVERFLOW:
+    case UNDERFLOW:
+    case TLOSS:
+    case PLOSS:
+    default:
+      break;
+    }
+
+// But don't print the system message.
+
+  return 1;
+}
+}
+#endif
+
 void
 sysdep_init (void)
 {