From 1df6ba74ab70cb0d4c7c86dea2bf45b7c8eff726 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 16 Sep 2008 14:12:46 +0000
Subject: [PATCH] Print out a warning message if we get a real protection
 fault.

---
 lisp/Darwin-os.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/Darwin-os.c b/lisp/Darwin-os.c
index 452519f17..9152bf3d4 100644
--- a/lisp/Darwin-os.c
+++ b/lisp/Darwin-os.c
@@ -14,7 +14,7 @@
  * Frobbed for OpenBSD by Pierre R. Mai, 2001.
  * Frobbed for Darwin by Pierre R. Mai, 2003.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.19 2008/09/16 08:52:31 cshapiro Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Darwin-os.c,v 1.20 2008/09/16 14:12:46 rtoy Exp $
  *
  */
 
@@ -395,6 +395,8 @@ sigbus_handler(HANDLER_ARGS)
     if (interrupt_maybe_gc(signal, code, context))
 	return;
 #endif
+    /* a *real* protection fault */
+    fprintf(stderr, "sigbus_handler: Real protection violation: %p\n", fault_addr);
     interrupt_handle_now(signal, code, context);
 #ifdef __ppc__
     /* Work around G5 bug; fix courtesy gbyers via chandler */
-- 
GitLab