Changeset 14426

Timestamp:

Nov 12, 2010, 12:26:32 PM (14 years ago)

Author:

Gary Byers

Message:

Do Darwin x86-64 foreign FPE handling in the Mach exception thread.

File:

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

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

@@ -3414 +3414 @@
         break;
       }
+#if WORD_SIZE==64
+      if ((signum==SIGFPE) && 
+          (code != FPE_INTDIV) && 
+          (tcr->valence != TCR_STATE_LISP)) {
+        mach_msg_type_number_t thread_state_count = x86_FLOAT_STATE64_COUNT;
+        x86_float_state64_t fs;
+
+        thread_get_state(thread,
+                         x86_FLOAT_STATE64,
+                         (thread_state_t)&fs,
+                         &thread_state_count);
+        
+        if (! (tcr->flags & (1<<TCR_FLAG_BIT_FOREIGN_FPE))) {
+          tcr->flags |= (1<<TCR_FLAG_BIT_FOREIGN_FPE);
+          tcr->lisp_mxcsr = (fs.__fpu_mxcsr & ~MXCSR_STATUS_MASK);
+        }
+        fs.__fpu_mxcsr &= ~MXCSR_STATUS_MASK;
+        fs.__fpu_mxcsr |= MXCSR_CONTROL_MASK;
+        thread_set_state(thread,
+                         x86_FLOAT_STATE64,
+                         (thread_state_t)&fs,
+                         x86_FLOAT_STATE64_COUNT);
+        return 0;
+      }
+#endif
       if (signum) {
         kret = setup_signal_frame(thread,