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

[Raymond Toy]

    Date: Friday, November 12, 2010 @ 07:57:32
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: solaris-os.c

Print out the PC when we get a real protection violation.


--------------+
 solaris-os.c |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


Index: src/lisp/solaris-os.c
diff -u src/lisp/solaris-os.c:1.25 src/lisp/solaris-os.c:1.26
--- src/lisp/solaris-os.c:1.25	Mon Feb  1 11:04:43 2010
+++ src/lisp/solaris-os.c	Fri Nov 12 07:57:32 2010
@@ -1,5 +1,5 @@
 /*
- * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.25 2010-02-01 16:04:43 rtoy Rel $
+ * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26 2010-11-12 12:57:32 rtoy Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -260,7 +260,9 @@
     }
 
     /* a *real* protection fault */
-    fprintf(stderr, "segv_handler: Real protection violation: %p\n", addr);
+    fprintf(stderr, "segv_handler: Real protection violation: %p, PC = %p\n",
+            addr,
+            context->uc_mcontext.gregs[1]);
     segv_handle_now(signal, code, context);
 }
 #else