CMUCL commit: src/lisp (FreeBSD-os.c Linux-os.c)
Raymond Toy
rtoy at common-lisp.net
Thu Oct 15 17:05:52 CEST 2009
Date: Thursday, October 15, 2009 @ 11:05:52
Author: rtoy
Path: /project/cmucl/cvsroot/src/lisp
Modified: FreeBSD-os.c Linux-os.c
As reported by Robert Swindells, cmucl-imp, 2009-10-15, we should not
use arch_support_sse2 here in case we're running an x87 core on a chip
with SSE2 support.
--------------+
FreeBSD-os.c | 4 ++--
Linux-os.c | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
Index: src/lisp/FreeBSD-os.c
diff -u src/lisp/FreeBSD-os.c:1.30 src/lisp/FreeBSD-os.c:1.31
--- src/lisp/FreeBSD-os.c:1.30 Thu Jun 11 12:04:01 2009
+++ src/lisp/FreeBSD-os.c Thu Oct 15 11:05:51 2009
@@ -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.30 2009-06-11 16:04:01 rtoy Rel $
+ * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.31 2009-10-15 15:05:51 rtoy Exp $
*
*/
@@ -340,7 +340,7 @@
__asm__ __volatile__ ("fldcw %0"::"m"(*&cw));
#ifdef FEATURE_SSE2
- if (arch_support_sse2()) {
+ if (fpu_mode == SSE2) {
u_int32_t mxcsr = env_xmm->en_mxcsr;
DPRINTF(0, (stderr, "restore_fpu: mxcsr (raw) = %04x\n", mxcsr));
Index: src/lisp/Linux-os.c
diff -u src/lisp/Linux-os.c:1.43 src/lisp/Linux-os.c:1.44
--- src/lisp/Linux-os.c:1.43 Mon Jan 5 21:28:14 2009
+++ src/lisp/Linux-os.c Thu Oct 15 11:05:51 2009
@@ -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.43 2009-01-06 02:28:14 agoncharov Rel $
+ * $Header: /project/cmucl/cvsroot/src/lisp/Linux-os.c,v 1.44 2009-10-15 15:05:51 rtoy Exp $
*
*/
@@ -430,7 +430,7 @@
DPRINTF(0, (stderr, "restore_fpu: cw = %08x\n", cw));
__asm__ __volatile__ ("fldcw %0" : : "m" (*&cw));
#ifdef FEATURE_SSE2
- if (arch_support_sse2()) {
+ if (fpu_mode == SSE2) {
struct _fpstate *fpstate;
unsigned int mxcsr;
More information about the cmucl-commit
mailing list