[cmucl-commit] [git] CMU Common Lisp branch master updated. begin-x87-removal-3-g0592141

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  0592141ab9256ca0382a501b418523194ed66e3c (commit)
       via  85c164325d8fe115eddefe9566ff0dcb206e76cf (commit)
      from  a746e0218269ff24d8d88e5edfd01b284558d33b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0592141ab9256ca0382a501b418523194ed66e3c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Mar 30 10:10:58 2014 -0700

    Remove -fpu command-line switch.

diff --git a/src/lisp/lisp.c b/src/lisp/lisp.c
index 7b08fd1..c484129 100644
--- a/src/lisp/lisp.c
+++ b/src/lisp/lisp.c
@@ -422,7 +422,7 @@ prepend_core_path(const char *lib, const char *corefile)
 extern int builtin_image_flag;
 extern long initial_function_addr;
 
-fpu_mode_t fpu_mode = AUTO;
+fpu_mode_t fpu_mode = SSE2;
 
 static const char*
 locate_core(const char* cmucllib, const char* core, const char* default_core)
@@ -662,32 +662,6 @@ main(int argc, const char *argv[], const char *envp[])
         } else if (strcmp(arg, "-unidata") == 0) {
           unidata = *++argptr;
         }
-#ifdef i386
-	else if (strcmp(arg, "-fpu") == 0) {
-	    const char *str;
-
-	    str = *++argptr;
-            if (str == NULL) {
-                fprintf(stderr, "-fpu must be followed by the FPU type:  auto, x87, sse2\n");
-                exit(1);
-            }
-
-            if (builtin_image_flag != 0) {
-                fprintf(stderr,
-                        "Warning:  -fpu cannot change the fpu mode of an executable image\n");
-            } else {
-                if (strcmp(str, "auto") == 0) {
-                    fpu_mode = AUTO;
-                } else if (strcmp(str, "x87") == 0) {
-                    fpu_mode = X87;
-                } else if (strcmp(str, "sse2") == 0) {
-                    fpu_mode = SSE2;
-                } else {
-                    fprintf(stderr, "Unknown fpu type: `%s'.  Using auto\n", str);
-                }
-            }
-        }
-#endif
     }
 
     default_core = arch_init(fpu_mode);

commit 85c164325d8fe115eddefe9566ff0dcb206e76cf
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Mar 30 10:10:05 2014 -0700

    Remove lisp -fpu command-line switch.

diff --git a/src/code/commandline.lisp b/src/code/commandline.lisp
index 4500bd4..2480a93 100644
--- a/src/code/commandline.lisp
+++ b/src/code/commandline.lisp
@@ -333,17 +333,6 @@
   "Specify the unidata.bin file to be used."
   "filename")
 
-#+x86
-(intl:with-textdomain ("cmucl" "cmucl-x86-vm")
-(defswitch "fpu" nil
-  "Specifies what kind of floating-point support should be used on x86
-  systems.  If 'x87', Lisp will use the x87 floating-point unit; if
-  'sse2', Lisp uses SSE2 floating-point unit. The default is
-  'auto',which causes Lisp to check to see if SSE2 is available.  If
-  so, then SSE2 is used.  If the SSE2 core file cannot be found,Lisp
-  will fallback to the x87 core, which can run on any machine."
-  "mode"))
-
 (defun help-switch-demon (switch)
   (declare (ignore switch))
   (format t (intl:gettext "~&Usage: ~A <options>~2%") *command-line-utility-name*)

-----------------------------------------------------------------------

Summary of changes:
 src/code/commandline.lisp |   11 -----------
 src/lisp/lisp.c           |   28 +---------------------------
 2 files changed, 1 insertion(+), 38 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp