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