[cmucl-cvs] CMUCL commit: src/lisp (Darwin-os.c)

Raymond Toy rtoy at common-lisp.net
Sat Sep 3 04:46:35 UTC 2011


    Date: Friday, September 2, 2011 @ 21:46:35
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: Darwin-os.c

Cleanup sigbus handler for stack overflow.

We don't need sigbus_handler_tramp; sigbus_handle_now is good enough.
Print out the PC too when we get a real sigbus.


-------------+
 Darwin-os.c |   32 +++-----------------------------
 1 file changed, 3 insertions(+), 29 deletions(-)


Index: src/lisp/Darwin-os.c
diff -u src/lisp/Darwin-os.c:1.34 src/lisp/Darwin-os.c:1.35
--- src/lisp/Darwin-os.c:1.34	Thu Sep  1 09:16:49 2011
+++ src/lisp/Darwin-os.c	Fri Sep  2 21:46:34 2011
@@ -14,7 +14,7 @@
  * Frobbed for OpenBSD by Pierre R. Mai, 2001.
  * Frobbed for Darwin by Pierre R. Mai, 2003.
  *
- * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.34 2011/09/01 16:16:49 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.35 2011/09/03 04:46:34 rtoy Exp $
  *
  */
 
@@ -462,18 +462,6 @@
     interrupt_handle_now(signal, code, context);
 }
 
-
-static int tramp_signal;
-static siginfo_t tramp_code;
-static ucontext_t tramp_context;
-
-static void
-sigbus_handler_tramp(void)
-{
-  sigbus_handle_now(tramp_signal, &tramp_code, &tramp_context);
-}
-
-
 static void
 sigbus_handler(HANDLER_ARGS)
 {
@@ -508,24 +496,10 @@
     if (interrupt_maybe_gc(signal, code, context))
 	return;
 #endif
-#ifdef RED_ZONE_HIT
-    {
-        /*
-         * Switch back to the normal stack and invoke the Lisp signal
-         * handler there.  Global variables are used to pass the
-         * context * to the other stack.
-         */
-      
-	tramp_signal = signal;
-	tramp_code = *code;
-	tramp_context = *context;
-	SC_PC(context) = sigbus_handler_tramp;
-	return;
-    }
-#endif
 
     /* a *real* protection fault */
-    fprintf(stderr, "sigbus_handler: Real protection violation: %p\n", fault_addr);
+    fprintf(stderr, "sigbus_handler: Real protection violation at %p, PC = %p\n",
+            fault_addr, SC_PC(context));
     sigbus_handle_now(signal, code, context);
 #ifdef __ppc__
     /* Work around G5 bug; fix courtesy gbyers via chandler */




More information about the cmucl-cvs mailing list