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

[Raymond Toy]

    Date: Thursday, December 23, 2010 @ 18:02:58
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: solaris-os.c

The address computation for x87 registers was wrong.  Fix them so.
Among other things, this makes tracing work with x87 floating-point
values. 


--------------+
 solaris-os.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/lisp/solaris-os.c
diff -u src/lisp/solaris-os.c:1.27 src/lisp/solaris-os.c:1.28
--- src/lisp/solaris-os.c:1.27	Tue Dec 21 21:12:52 2010
+++ src/lisp/solaris-os.c	Thu Dec 23 18:02:58 2010
@@ -1,5 +1,5 @@
 /*
- * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.27 2010-12-22 02:12:52 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.28 2010-12-23 23:02:58 rtoy Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -560,9 +560,9 @@
         /* Point to the fpchip_state */
         fpustate = (unsigned char*) &fpregs->fp_reg_set.fpchip_state.state[0];
         /* Skip to where the x87 fp registers are */
-        stregs = fpustate + 24;
+        stregs = fpustate + 28;
     
-        reg = stregs + 16*offset;
+        reg = stregs + 10*offset;
     }
 #ifdef FEATURE_SSE2
     else {