Changeset 5372

Timestamp:

Oct 18, 2006, 12:43:26 AM (18 years ago)

Author:

Gary Byers

Message:

handle_fault() checks for safe_ref_addres.

File:

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

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

@@ -517 +517 @@
 handle_fault(TCR *tcr, ExceptionInformation *xp, siginfo_t *info)
 {
+#ifdef FREEBSD
+  BytePtr addr = (BytePtr) xp->uc_mcontext.mc_addr;
+#else
   BytePtr addr = (BytePtr) info->si_addr;
-  protected_area *a = find_protected_area(addr);
-  protection_handler *handler;
-
-  if (a) {
-    handler = protection_handlers[a->why];
-    return handler(xp, a, addr);
+#endif
+
+  if (addr && (addr == tcr->safe_ref_address)) {
+    xpGPR(xp,Iimm0) = 0;
+    xpPC(xp) = xpGPR(xp,Ira0);
+    return true;
+  } else {
+    protected_area *a = find_protected_area(addr);
+    protection_handler *handler;
+
+    if (a) {
+      handler = protection_handlers[a->why];
+      return handler(xp, a, addr);
+    }
   }
   return false;
@@ -760 +771 @@
 #endif
     
+#if SIGSEGV != SIGNUM_FOR_INTN_TRAP
+  case SIGSEGV:
+    return handle_fault(tcr, context, info);
+#endif    
     
   default: