[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (solaris-os.c)
Raymond Toy
rtoy at common-lisp.net
Sat Dec 18 16:19:40 UTC 2010
Date: Saturday, December 18, 2010 @ 11:19:40
Author: rtoy
Path: /project/cmucl/cvsroot/src/lisp
Tag: cross-sol-x86-branch
Modified: solaris-os.c
Add function real_segv_handler to handle "real protection"
violations. Useful for debugging so we can easily stop in such
cases.
--------------+
solaris-os.c | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
Index: src/lisp/solaris-os.c
diff -u src/lisp/solaris-os.c:1.26.4.2 src/lisp/solaris-os.c:1.26.4.3
--- src/lisp/solaris-os.c:1.26.4.2 Wed Dec 15 07:45:51 2010
+++ src/lisp/solaris-os.c Sat Dec 18 11:19:39 2010
@@ -1,5 +1,5 @@
/*
- * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.2 2010-12-15 12:45:51 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.3 2010-12-18 16:19:39 rtoy Exp $
*
* OS-dependent routines. This file (along with os.h) exports an
* OS-independent interface to the operating system VM facilities.
@@ -211,6 +211,11 @@
interrupt_handle_now(signal, code, context);
}
+void real_segv_handler(HANDLER_ARGS)
+{
+ segv_handle_now(signal, code, context);
+}
+
void
segv_handler(HANDLER_ARGS)
{
@@ -265,7 +270,7 @@
fprintf(stderr, "segv_handler: Real protection violation: %p, PC = %p\n",
addr,
context->uc_mcontext.gregs[1]);
- segv_handle_now(signal, code, context);
+ real_segv_handler(signal, code, context);
}
#else
void
More information about the cmucl-cvs
mailing list