From b9c7bd10b5ceda68132798e43d00a96c1636fb8f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 27 Jun 2010 13:17:17 +0000
Subject: [PATCH] Fix tracing/debug:arg bug.  Testing and debugging by Alex.

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

diff --git a/lisp/FreeBSD-os.c b/lisp/FreeBSD-os.c
index fcdd0293b..6a12f7762 100644
--- a/lisp/FreeBSD-os.c
+++ b/lisp/FreeBSD-os.c
@@ -12,7 +12,7 @@
  * Much hacked by Paul Werkowski
  * GENCGC support by Douglas Crosher, 1996, 1997.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.33 2010/02/01 16:04:43 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.34 2010/06/27 13:17:17 rtoy Exp $
  *
  */
 
@@ -99,7 +99,11 @@ os_sigcontext_fpu_reg(ucontext_t *scp, int index)
 
     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;
-- 
GitLab