diff --git a/code/exports.lisp b/code/exports.lisp index a1b499bb50c0fb3c416e4009a6e7bd0ca66ca22a..c01d85986fea4cd468bda06c32d6e5b812a2047a 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 5bbbfe26f2dc7480ca23a50c51c551f2a0b6aba5..f44df7884e3e729048cf2f40da671fa41b9eb4b8 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 66ad41f8cb1ac339bc573f8fa7d1901c0b6cb2f2..3559437dc786c3146ad9530de7aedcca16d002ea 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;