Changeset 894

Timestamp:

Oct 26, 2004, 10:23:10 PM (20 years ago)

Author:

Gary Byers

Message:

Use get_interrupt_tcr() in signal_handler on linux.

File:

• trunk/ccl/lisp-kernel/lisp-exceptions.c (modified) (2 diffs)

trunk/ccl/lisp-kernel/lisp-exceptions.c

@@ -1858 +1858 @@
 #ifdef LINUX
 
-  tcr = (TCR *) xpGPR(context,rcontext);
-  
-  if (tcr == NULL) {
-    tcr = get_tcr(false);
-  } else {
-    current_r2 = tcr->native_thread_info;
-  }
-
+  tcr = (TCR *) get_interrupt_tcr(false);
+  
   /* The signal handler's entered with all signals (notably the
      thread_suspend signal) blocked.  Don't allow any other signals
@@ -2037 +2031 @@
           old_valence = prepare_to_wait_for_exception_lock(tcr, context);
           wait_for_exception_lock_in_handler(tcr, context, &xframe_link);
+#ifdef DARWIN
+          enable_fp_exceptions();
+#endif
           PMCL_exception_handler(signum, context, tcr, info);
           unlock_exception_lock_in_handler(tcr);