[git] CMU Common Lisp branch master updated. begin-x87-removal-10-ge885c18

Raymond Toy rtoy at common-lisp.net
Sun Apr 13 18:50:21 UTC 2014

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  e885c18578fba479fca8e55cd1502ea76e1fb027 (commit)
      from  d3bc3ac7a83c9c06dabf37ebe9e781bcfcfa5518 (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 e885c18578fba479fca8e55cd1502ea76e1fb027
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Apr 13 11:50:10 2014 -0700

    Remove support for compiling with x87 versions.

diff --git a/src/tools/comcom.lisp b/src/tools/comcom.lisp
index 2205e11..b75a588 100644
--- a/src/tools/comcom.lisp
+++ b/src/tools/comcom.lisp
@@ -173,15 +173,11 @@
 (when *load-stuff*
   (load (vmdir "target:assembly/support")))
 (comf (vmdir "target:compiler/move"))
-(comf (if (c:target-featurep :sse2)
-	  (vmdir "target:compiler/float-sse2")
-	  (vmdir "target:compiler/float"))
+(comf (vmdir "target:compiler/float-sse2")
       :byte-compile *byte-compile*)
 (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*)
 (when (c:target-featurep :x86)
-  (comf (if (c:target-featurep :sse2)
-	    (vmdir "target:compiler/sse2-sap")
-	    (vmdir "target:compiler/x87-sap"))
+  (comf (vmdir "target:compiler/sse2-sap")
 	:byte-compile *byte-compile*))
 (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*)
 (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*)
@@ -193,9 +189,7 @@
 (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*)
 (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*)
 (when (c:target-featurep :x86)
-  (comf (if (c:target-featurep :sse2)
-	    (vmdir "target:compiler/sse2-c-call")
-	    (vmdir "target:compiler/x87-c-call"))
+  (comf (vmdir "target:compiler/sse2-c-call")
 	:byte-compile *byte-compile*))
 (when (c:target-featurep :alien-callback)
   (comf (vmdir "target:compiler/c-callback")))
@@ -209,9 +203,7 @@
 ;; Must come before array.lisp because array.lisp wants to use some
 ;; vops as templates.
 (when (c:target-featurep :x86)
-  (comf (vmdir (if (c:target-featurep :sse2)
-		   "target:compiler/sse2-array"
-		   "target:compiler/x87-array"))
+  (comf (vmdir "target:compiler/sse2-array")
 	:byte-compile *byte-compile*))
 (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*)


Summary of changes:
 src/tools/comcom.lisp |   16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list