CMUCL commit: src/lisp (FreeBSD-os.c)

[Raymond Toy]

    Date: Sunday, June 27, 2010 @ 09:17:17
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: FreeBSD-os.c

Fix tracing/debug:arg bug.  Testing and debugging by Alex.


--------------+
 FreeBSD-os.c |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)


Index: src/lisp/FreeBSD-os.c
diff -u src/lisp/FreeBSD-os.c:1.33 src/lisp/FreeBSD-os.c:1.34
--- src/lisp/FreeBSD-os.c:1.33	Mon Feb  1 11:04:43 2010
+++ src/lisp/FreeBSD-os.c	Sun Jun 27 09:17:17 2010
@@ -12,7 +12,7 @@
  * Much hacked by Paul Werkowski
  * GENCGC support by Douglas Crosher, 1996, 1997.
  *
- * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.33 2010-02-01 16:04:43 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.34 2010-06-27 13:17:17 rtoy Exp $
  *
  */
 
@@ -99,7 +99,11 @@
 
     switch (fpformat) {
       case _MC_FPFMT_XMM:
-	  reg = sv->sv_xmm.sv_fp[index].fp_acc.fp_bytes;
+          if (index < 8) {
+              reg = sv->sv_xmm.sv_fp[index].fp_acc.fp_bytes;
+          } else {
+              reg = sv->sv_xmm.sv_xmm[index - 8].xmm_bytes;
+          }
 	  break;
       case _MC_FPFMT_387:
 	  reg = sv->sv_87.sv_ac[index].fp_bytes;