CMUCL commit: src/lisp (NetBSD-os.c)
Robert Swindells
rswindells at common-lisp.net
Sun Jun 27 17:14:54 CEST 2010
Date: Sunday, June 27, 2010 @ 11:14:54
Author: rswindells
Path: /project/cmucl/cvsroot/src/lisp
Modified: NetBSD-os.c
Return address from os_sigcontext_fpu_reg(), make sigsegv_handler compile
when SIGSEGV_VERBOSE defined.
-------------+
NetBSD-os.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
Index: src/lisp/NetBSD-os.c
diff -u src/lisp/NetBSD-os.c:1.15 src/lisp/NetBSD-os.c:1.16
--- src/lisp/NetBSD-os.c:1.15 Mon Feb 1 11:04:43 2010
+++ src/lisp/NetBSD-os.c Sun Jun 27 11:14:54 2010
@@ -15,7 +15,7 @@
* Frobbed for OpenBSD by Pierre R. Mai, 2001.
* Frobbed for NetBSD by Pierre R. Mai, 2002.
*
- * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.15 2010-02-01 16:04:43 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.16 2010-06-27 15:14:54 rswindells Exp $
*
*/
@@ -91,9 +91,9 @@
if (scp->uc_flags & _UC_FPU) {
if (scp->uc_flags & _UC_FXSAVE) {
- reg = scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[index];
+ reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[index];
} else {
- reg = scp->uc_mcontext.__fpregs.__fp_reg_set.__fpchip_state.__fp_state[index];
+ reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fpchip_state.__fp_state[index];
}
} else {
reg = NULL;
@@ -265,9 +265,9 @@
sigsegv_handler(HANDLER_ARGS)
{
#if defined GENCGC
+#if SIGSEGV_VERBOSE
caddr_t fault_addr = code ? code->si_addr : 0;
-#if SIGSEGV_VERBOSE
fprintf(stderr, "Signal %d, fault_addr=%p, page_index=%d:\n",
signal, fault_addr, page_index);
#endif
More information about the cmucl-commit
mailing list