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