[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