Changeset 14427

Timestamp:

Nov 12, 2010, 1:02:42 PM (14 years ago)

Author:

Gary Byers

Message:

On x8664 platforms where we use real signal handling and where
sigaltstack works, check for and try to handle foreign SIGFPE
in altstack_signal_handler().

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (1 diff)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -1695 +1695 @@
 {
   TCR* tcr = get_tcr(true);
-#if 0
-  if (tcr->valence != TCR_STATE_LISP) {
-    lisp_Debugger(context, info, signum, true, "exception in foreign context");
-  }
-#endif
+
+#if WORD_SIZE==64
+  if ((signum == SIGFPE) && (tcr->valence != TCR_STATE_LISP)) {
+    if (handle_foreign_fpe(tcr,context,info)) {
+      return;
+    }
+  }
+#endif
+     
   handle_signal_on_foreign_stack(tcr,signal_handler,signum,info,context,(LispObj)__builtin_return_address(0)
 #ifdef DARWIN_GS_HACK