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