Changeset 6272

Timestamp:

Apr 15, 2007, 11:38:19 PM (18 years ago)

Author:

Gary Byers

Message:

Call out to lisp on unhandled memory faults.

File:

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

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

@@ -552 +552 @@
 
 Boolean
+is_write_fault(ExceptionInformation *xp, siginfo_t *info)
+{
+#ifdef DARWIN
+  return (UC_MCONTEXT(xp)->__es.__err & 0x2) != 0;
+#endif
+}
+
+Boolean
 handle_fault(TCR *tcr, ExceptionInformation *xp, siginfo_t *info)
 {
@@ -572 +580 @@
       return handler(xp, a, addr);
     }
+  }
+  {
+    LispObj xcf = create_exception_callback_frame(xp),
+      cmain = nrs_CMAIN.vcell;
+    callback_to_lisp(tcr, cmain, xp, xcf, SIGBUS, is_write_fault(xp,info), (natural)addr, 0);
   }
   return false;