From c23230720cdb4a5ab46929fb746fde91c1bea214 Mon Sep 17 00:00:00 2001
From: agoncharov <agoncharov>
Date: Tue, 6 Jan 2009 02:28:14 +0000
Subject: [PATCH] * code/exports.lisp -- Added a missing quote characher. *
 lisp/FreeBSD-os.c -- Fixed the switch to the SSE2 mode, in line with other
 OSes. * lisp/Linux-os.c -- Fixed a comment (sse != sse2)

---
 code/exports.lisp | 4 ++--
 lisp/FreeBSD-os.c | 4 ++--
 lisp/Linux-os.c   | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index a1b499bb5..c01d85986 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.279 2009/01/06 01:11:24 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.280 2009/01/06 02:28:14 agoncharov Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1385,7 +1385,7 @@
   (:export "*COMMAND-LINE-WORDS*" "*COMMAND-LINE-SWITCHES*"
 	   "*COMMAND-SWITCH-DEMONS*" "*COMMAND-LINE-UTILITY-NAME*"
 	   "*COMMAND-LINE-STRINGS*" "*BATCH-MODE*"
-	   "*COMMAND-LINE-APPLICATION-ARGUMENTS*
+	   "*COMMAND-LINE-APPLICATION-ARGUMENTS*"
 	   "CMD-SWITCH-STRING" "COMMAND-LINE-SWITCH-P"
 	   "CMD-SWITCH-NAME" "CMD-SWITCH-VALUE" "CMD-SWITCH-WORDS" "COMMAND-LINE-SWITCH"
 	   "DEFSWITCH" "CMD-SWITCH-ARG" "GET-COMMAND-LINE-SWITCH")
diff --git a/lisp/FreeBSD-os.c b/lisp/FreeBSD-os.c
index 5bbbfe26f..f44df7884 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.27 2008/12/10 02:39:13 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.28 2009/01/06 02:28:14 agoncharov Exp $
  *
  */
 
@@ -137,7 +137,7 @@ os_sigcontext_fpu_modes(ucontext_t *scp)
     modes = ((cw & 0x3f) << 7) | (sw & 0x3f);
 
 #ifdef FEATURE_SSE2
-    if (arch_support_sse2()) {
+    if (fpu_mode == SSE2) {
         u_int32_t mxcsr = env_xmm->en_mxcsr;
         DPRINTF(0, (stderr, "SSE2 modes = %08x\n", (int) mxcsr));
 	modes |= mxcsr;
diff --git a/lisp/Linux-os.c b/lisp/Linux-os.c
index 66ad41f8c..3559437dc 100644
--- a/lisp/Linux-os.c
+++ b/lisp/Linux-os.c
@@ -15,7 +15,7 @@
  * GENCGC support by Douglas Crosher, 1996, 1997.
  * Alpha support by Julian Dolby, 1999.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.c,v 1.42 2009/01/05 22:26:27 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.c,v 1.43 2009/01/06 02:28:14 agoncharov Rel $
  *
  */
 
@@ -129,7 +129,7 @@ os_sigcontext_fpu_modes(ucontext_t *scp)
 
 #ifdef FEATURE_SSE2
     /*
-     * Add in the SSE2 part, if we're running the sse core.
+     * Add in the SSE2 part, if we're running the sse2 core.
      */
     if (fpu_mode == SSE2) {
         struct _fpstate *fpstate;
-- 
GitLab