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

Raymond Toy rtoy at common-lisp.net
Thu Dec 23 17:38:05 UTC 2010


    Date: Thursday, December 23, 2010 @ 12:38:05
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: NetBSD-os.c

o Oops.  We want the xmm registers if index >= 8.
o Add some debugging prints.


-------------+
 NetBSD-os.c |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)


Index: src/lisp/NetBSD-os.c
diff -u src/lisp/NetBSD-os.c:1.17 src/lisp/NetBSD-os.c:1.18
--- src/lisp/NetBSD-os.c:1.17	Wed Dec 22 23:50:02 2010
+++ src/lisp/NetBSD-os.c	Thu Dec 23 12:38:05 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.17 2010-12-23 04:50:02 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.18 2010-12-23 17:38:05 rtoy Exp $
  *
  */
 
@@ -89,6 +89,8 @@
 {
     unsigned char *reg = NULL;
 
+    DPRINTF(0, (stderr, "fpu reg index = %d\n", index));
+    
     if (scp->uc_flags & _UC_FPU) {
 	if (scp->uc_flags & _UC_FXSAVE) {
             /*
@@ -99,10 +101,12 @@
              * start of the array, and each XMM register is 16 bytes
              * long.
              */
-            if (index < 8) {
+            if (index >= 8) {
                 reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[160 + 16*(index - 8)];
+                DPRINTF(0, (stderr, " sse2 = %g\n", (double) *(double*) reg));
             } else {
                 reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[32 + 16*index];
+                DPRINTF(0, (stderr, " sse2 x87 = %g\n", (double) *(long double*) reg));
             }
             
 	} else {
@@ -112,6 +116,7 @@
              * each.
              */
 	    reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fpchip_state.__fp_state[28 + 10*index];
+            DPRINTF(0, (stderr, " x87 = %g\n", (double) *(long double*) reg));
 	}
     } else {
 	reg = NULL;




More information about the cmucl-cvs mailing list