- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] CMUCL commit: src/code (unix.lisp)
by Raymond Toy 07 Jan '11

07 Jan '11

Date: Thursday, January 6, 2011 @ 22:46:43 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unix.lisp Fix typo in unix-uname. We want to use "uname" everywhere except on freebsd and solaris/x86. -----------+ unix.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/unix.lisp diff -u src/code/unix.lisp:1.133 src/code/unix.lisp:1.134 --- src/code/unix.lisp:1.133 Tue Dec 21 21:15:39 2010 +++ src/code/unix.lisp Thu Jan 6 22:46:42 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.133 2010-12-22 02:15:39 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.134 2011-01-07 03:46:42 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3391,7 +3391,7 @@ (defun unix-uname () (with-alien ((names (struct utsname))) - (syscall* (#-(or freebsd solaris) "uname" + (syscall* (#-(or freebsd (and x86 solaris)) "uname" #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h #+freebsd "__xuname" #+freebsd int (* (struct utsname)))

1 0

[cmucl-cvs] CMUCL commit: src/code (debug-int.lisp)
by Raymond Toy 27 Dec '10

27 Dec '10

Date: Sunday, December 26, 2010 @ 21:05:31 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: debug-int.lisp NetBSD has a working dladdr, so we can use the fancy FIND-FOREIGN-FUNCTION-NAME. ----------------+ debug-int.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/debug-int.lisp diff -u src/code/debug-int.lisp:1.143 src/code/debug-int.lisp:1.144 --- src/code/debug-int.lisp:1.143 Sun Dec 26 18:14:21 2010 +++ src/code/debug-int.lisp Sun Dec 26 21:05:31 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.143 2010-12-26 23:14:21 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.144 2010-12-27 02:05:31 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1180,7 +1180,7 @@ frame))))) -#+(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) +#+(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux)) (defun find-foreign-function-name (address) "Return a string describing the foreign function near ADDRESS" (let ((addr (sys:sap-int address))) @@ -1203,7 +1203,7 @@ (alien:slot info 'filename) ))))))) -#-(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) +#-(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux)) (defun find-foreign-function-name (ra) (declare (ignore ra)) "Foreign function call land")

1 0

[cmucl-cvs] CMUCL commit: src/motif/server (Config.Darwin)
by Raymond Toy 27 Dec '10

27 Dec '10

Date: Sunday, December 26, 2010 @ 20:46:46 Author: rtoy Path: /project/cmucl/cvsroot/src/motif/server Modified: Config.Darwin o The latest openmotif from macports appears to be linked against the macports X11 libs, so search for that first. Without that, motifd crashes. o Add -g to enable debugging. ---------------+ Config.Darwin | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/motif/server/Config.Darwin diff -u src/motif/server/Config.Darwin:1.3 src/motif/server/Config.Darwin:1.4 --- src/motif/server/Config.Darwin:1.3 Tue Jan 22 07:43:42 2008 +++ src/motif/server/Config.Darwin Sun Dec 26 20:46:46 2010 @@ -1,5 +1,5 @@ -CFLAGS = -O2 -I/opt/local/include -I/sw/include -I/usr/local/include -I/usr/X11R6/include -I. -I$(VPATH) -LDFLAGS = -L/usr/X11R6/lib -L/opt/local/lib -L/sw/lib -L/usr/local/lib +CFLAGS = -g -O2 -I/opt/local/include -I/sw/include -I/usr/local/include -I/usr/X11R6/include -I. -I$(VPATH) +LDFLAGS = -L/opt/local/lib -L/usr/X11R6/lib -L/sw/lib -L/usr/local/lib LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE #LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE -llanginfo # This def assumes you are building in the same or parallel

1 0

[cmucl-cvs] CMUCL commit: src/code (debug-int.lisp)
by Raymond Toy 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 18:14:22 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: debug-int.lisp Solaris/x86 has a working dladdr, so we can use the fancy FIND-FOREIGN-FUNCTION-NAME. ----------------+ debug-int.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/debug-int.lisp diff -u src/code/debug-int.lisp:1.142 src/code/debug-int.lisp:1.143 --- src/code/debug-int.lisp:1.142 Wed Jul 14 19:08:59 2010 +++ src/code/debug-int.lisp Sun Dec 26 18:14:21 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.142 2010-07-14 23:08:59 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.143 2010-12-26 23:14:21 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1180,7 +1180,7 @@ frame))))) -#+(or sparc (and x86 darwin) (and (or x86 amd64) linux)) +#+(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) (defun find-foreign-function-name (address) "Return a string describing the foreign function near ADDRESS" (let ((addr (sys:sap-int address))) @@ -1203,7 +1203,7 @@ (alien:slot info 'filename) ))))))) -#-(or sparc (and x86 darwin) (and (or x86 amd64) linux)) +#-(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) (defun find-foreign-function-name (ra) (declare (ignore ra)) "Foreign function call land")

1 0

[cmucl-cvs] CMUCL commit: src/lisp (8 files)
by Robert Swindells 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 11:04:44 Author: rswindells Path: /project/cmucl/cvsroot/src/lisp Modified: Darwin-os.c FreeBSD-os.c Linux-os.c NetBSD-os.c lisp.c os.h solaris-os.c x86-arch.c Add a test for whether the operating system supports use of the SSE2 registers. The test is a stub on everything except NetBSD for now. --------------+ Darwin-os.c | 10 +++++++++- FreeBSD-os.c | 11 ++++++++++- Linux-os.c | 10 +++++++++- NetBSD-os.c | 18 +++++++++++++++++- lisp.c | 6 +++--- os.h | 6 +++++- solaris-os.c | 8 +++++++- x86-arch.c | 4 ++-- 8 files changed, 62 insertions(+), 11 deletions(-) Index: src/lisp/Darwin-os.c diff -u src/lisp/Darwin-os.c:1.30 src/lisp/Darwin-os.c:1.31 --- src/lisp/Darwin-os.c:1.30 Tue Jun 22 12:55:17 2010 +++ src/lisp/Darwin-os.c Sun Dec 26 11:04:43 2010 @@ -14,7 +14,7 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for Darwin by Pierre R. Mai, 2003. * - * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.30 2010-06-22 16:55:17 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.31 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -523,3 +523,11 @@ return sym_addr; } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif Index: src/lisp/FreeBSD-os.c diff -u src/lisp/FreeBSD-os.c:1.36 src/lisp/FreeBSD-os.c:1.37 --- src/lisp/FreeBSD-os.c:1.36 Tue Sep 7 23:28:08 2010 +++ src/lisp/FreeBSD-os.c Sun Dec 26 11:04:43 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.36 2010-09-08 03:28:08 agoncharov Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.37 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -356,3 +356,12 @@ } #endif } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif + Index: src/lisp/Linux-os.c diff -u src/lisp/Linux-os.c:1.50 src/lisp/Linux-os.c:1.51 --- src/lisp/Linux-os.c:1.50 Tue Jun 22 12:55:17 2010 +++ src/lisp/Linux-os.c Sun Dec 26 11:04:43 2010 @@ -15,7 +15,7 @@ * GENCGC support by Douglas Crosher, 1996, 1997. * Alpha support by Julian Dolby, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/Linux-os.c,v 1.50 2010-06-22 16:55:17 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/Linux-os.c,v 1.51 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -537,3 +537,11 @@ #endif } } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif Index: src/lisp/NetBSD-os.c diff -u src/lisp/NetBSD-os.c:1.18 src/lisp/NetBSD-os.c:1.19 --- src/lisp/NetBSD-os.c:1.18 Thu Dec 23 12:38:05 2010 +++ src/lisp/NetBSD-os.c Sun Dec 26 11:04:43 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.18 2010-12-23 17:38:05 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.19 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -36,6 +36,7 @@ /* #include <sys/sysinfo.h> */ #include <sys/proc.h> #include <dlfcn.h> +#include <sys/sysctl.h> #include "validate.h" size_t os_vm_page_size; @@ -409,3 +410,18 @@ __asm__ __volatile__ ("ldmxcsr %0"::"m"(*&mxcsr)); } } + +#ifdef i386 +boolean +os_support_sse2() +{ + int support_sse2; + size_t len; + + if (sysctlbyname("machdep.sse2", &support_sse2, &len, + NULL, 0) == 0 && support_sse2 != 0) + return TRUE; + else + return FALSE; +} +#endif Index: src/lisp/lisp.c diff -u src/lisp/lisp.c:1.80 src/lisp/lisp.c:1.81 --- src/lisp/lisp.c:1.80 Wed Dec 22 22:20:27 2010 +++ src/lisp/lisp.c Sun Dec 26 11:04:43 2010 @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.80 2010-12-23 03:20:27 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.81 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -715,8 +715,8 @@ } #ifdef i386 - if ((fpu_type == SSE2) && !arch_support_sse2()) { - fprintf(stderr, "Core uses SSE2, but CPU doesn't support SSE2. Exiting\n"); + if ((fpu_type == SSE2) && (!arch_support_sse2() || !os_support_sse2())) { + fprintf(stderr, "Core uses SSE2, but CPU/OS doesn't support SSE2. Exiting\n"); exit(1); } fpu_mode = fpu_type; Index: src/lisp/os.h diff -u src/lisp/os.h:1.26 src/lisp/os.h:1.27 --- src/lisp/os.h:1.26 Mon Feb 1 12:38:48 2010 +++ src/lisp/os.h Sun Dec 26 11:04:43 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/os.h,v 1.26 2010-02-01 17:38:48 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/os.h,v 1.27 2010-12-26 16:04:43 rswindells Exp $ * * Common interface for os-dependent functions. * @@ -115,6 +115,10 @@ unsigned char *os_sigcontext_fpu_reg(ucontext_t *, int); unsigned int os_sigcontext_fpu_modes(ucontext_t *); +#ifdef i386 +extern boolean os_support_sse2(void); +#endif + char* convert_lisp_string(char* c_string, void* lisp_string, int len); #endif /* _OS_H_ */ Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.28 src/lisp/solaris-os.c:1.29 --- src/lisp/solaris-os.c:1.28 Thu Dec 23 18:02:58 2010 +++ src/lisp/solaris-os.c Sun Dec 26 11:04:43 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.28 2010-12-23 23:02:58 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.29 2010-12-26 16:04:43 rswindells Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -609,4 +609,10 @@ modes ^= (0x3f << 7); return modes; } + +boolean +os_support_sse2() +{ + return TRUE; +} #endif Index: src/lisp/x86-arch.c diff -u src/lisp/x86-arch.c:1.42 src/lisp/x86-arch.c:1.43 --- src/lisp/x86-arch.c:1.42 Thu Dec 23 17:55:31 2010 +++ src/lisp/x86-arch.c Sun Dec 26 11:04:43 2010 @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.42 2010-12-23 22:55:31 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.43 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -105,7 +105,7 @@ { int have_sse2; - have_sse2 = arch_support_sse2(); + have_sse2 = arch_support_sse2() && os_support_sse2(); switch (mode) { case AUTO:

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 10:17:59 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.14 src/general-info/release-20c.txt:1.15 --- src/general-info/release-20c.txt:1.14 Thu Dec 9 00:13:50 2010 +++ src/general-info/release-20c.txt Sun Dec 26 10:17:59 2010 @@ -24,6 +24,8 @@ - Update to Unicode 5.2.0. - Add support for character name completion. This can be used by Slime to do character name completion. + - Initial support for Solaris/x86. CMUCL will run on Solaris/x86 + with all features available. * Changes - ASDF2 updated to version 2.010. @@ -62,6 +64,12 @@ CMUCL. READ-CHAR will use the specified external format for such streams. READ-BYTE reads (unsigned-byte 8) elements from such streams. + - UNINTERN no longer removes the wrong symbol. UNINTERN would + remove the symbol when inherited from another package although + it should not. + - DEFSTRUCT allows multiple keyword constructors as required by + the spec.. + * Bugfixes: - The pairwise composition table is now correctly built. Previously, it skipped over non-BMP codepoints. This also @@ -88,7 +96,17 @@ - SUBSEQ with an end index less than the start index sometimes crashes CMUCL. Now, signal an error if the boudns are not valid. - + - Localization support was causing many calls to stat trying to + find non-existent translation files. This has been fixed so + that the results are cached. (If new translations are added, + the cache will need to be cleared or cmucl restarted.) This + change cuts building time by half on Solaris/sparc. + - On NetBSD, function-end breakpoints, especially for + tail-recursive functions, are working now. + - On NetBSD, display of FP numbers (sse2 and x87) during tracing + has been corrected. Previously, random values were displayed. + - Executables images can now be created on NetBSD again. + * Trac Tickets: * Other changes:

1 0

[cmucl-cvs] CMUCL commit: src/code (defstruct.lisp)
by Raymond Toy 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 09:54:33 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: defstruct.lisp Allow more than one keyword constructor for defstruct. Bug and fix from Rob Warnock. ----------------+ defstruct.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/defstruct.lisp diff -u src/code/defstruct.lisp:1.102 src/code/defstruct.lisp:1.103 --- src/code/defstruct.lisp:1.102 Fri Apr 23 09:23:29 2010 +++ src/code/defstruct.lisp Sun Dec 26 09:54:33 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.102 2010-04-23 13:23:29 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.103 2010-12-26 14:54:33 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1120,7 +1120,7 @@ (res (create-keyword-constructor defstruct creator)) (dolist (other-name (rest defaults)) (res `(setf (fdefinition ',other-name) (fdefinition ',cname))) - (res `(declaim (ftype function ',other-name)))))) + (res `(declaim (ftype function ,other-name)))))) (dolist (boa boas) (res (create-boa-constructor defstruct boa creator)))

1 0

[cmucl-cvs] CMUCL commit: src/code (package.lisp)
by Raymond Toy 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 09:03:48 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: package.lisp Unintern removes the wrong symbol. See https://bugs.launchpad.net/sbcl/+bug/693796. --------------+ package.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/package.lisp diff -u src/code/package.lisp:1.80 src/code/package.lisp:1.81 --- src/code/package.lisp:1.80 Tue Apr 20 13:57:45 2010 +++ src/code/package.lisp Sun Dec 26 09:03:48 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.80 2010-04-20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.81 2010-12-26 14:03:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1444,8 +1444,8 @@ (remove symbol shadowing-symbols))) (multiple-value-bind (s w) (find-symbol name package) - (declare (ignore s)) - (cond ((or (eq w :internal) (eq w :external)) + (cond ((not (eq symbol s)) nil) + ((or (eq w :internal) (eq w :external)) (nuke-symbol (if (eq w :internal) (package-internal-symbols package) (package-external-symbols package))

1 0

[cmucl-cvs] CMUCL commit: src/lisp (x86-lispregs.h)
by Raymond Toy 24 Dec '10

24 Dec '10

Date: Friday, December 24, 2010 @ 01:01:34 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-lispregs.h Document why SC_EFLAGS doesn't seem to work on Solaris/x86. ----------------+ x86-lispregs.h | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) Index: src/lisp/x86-lispregs.h diff -u src/lisp/x86-lispregs.h:1.15 src/lisp/x86-lispregs.h:1.16 --- src/lisp/x86-lispregs.h:1.15 Thu Dec 23 17:56:26 2010 +++ src/lisp/x86-lispregs.h Fri Dec 24 01:01:34 2010 @@ -1,5 +1,5 @@ /* x86-lispregs.h -*- Mode: C; -*- - * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.15 2010-12-23 22:56:26 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.16 2010-12-24 06:01:34 rtoy Exp $ */ #ifndef _X86_LISPREGS_H_ @@ -63,9 +63,12 @@ #elif defined(SOLARIS) /* * Solaris/x86 has access the the eflags value, but this doesn't - * currently work. Some more work needs to be done in x86-arch.c to - * make this work. But the default code there works fine on - * Solaris/x86. + * currently work. It seems that when we set the EFLAG to enable + * single-stepping, we never actually step the new instruction but we + * stop at exactly the same place. This is not how it works on other + * OSes where we do step an instruction. I (rtoy) do not know why. + * Some more work needs to be done in x86-arch.c to make this work. + * But the default code there works fine on Solaris/x86. */ /* #define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[EFL])*/ #endif

1 0

[cmucl-cvs] CMUCL commit: src/lisp (solaris-os.c)
by Raymond Toy 23 Dec '10

23 Dec '10

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 {

1 0