CMUCL commit: src/compiler/x86 (parms.lisp)

[Raymond Toy]

    Date: Tuesday, November 24, 2009 @ 19:03:54
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/x86

Modified: parms.lisp

Make the backend-version indicate whether the backend is using sse2 or
x87.  (This should have been done long ago, but wasn't.)


------------+
 parms.lisp |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)


Index: src/compiler/x86/parms.lisp
diff -u src/compiler/x86/parms.lisp:1.37 src/compiler/x86/parms.lisp:1.38
--- src/compiler/x86/parms.lisp:1.37	Thu Jun 11 12:04:00 2009
+++ src/compiler/x86/parms.lisp	Tue Nov 24 19:03:54 2009
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.37 2009-06-11 16:04:00 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.38 2009-11-25 00:03:54 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -38,7 +38,8 @@
 (eval-when (compile eval load)
 
 (setf (backend-name *target-backend*) "X86")
-(setf (backend-version *target-backend*) "Intel x86")
+(setf (backend-version *target-backend*)
+      (if (backend-featurep :sse2) "Intel x86/sse2" "Intel x86/x87"))
 (setf (backend-fasl-file-type *target-backend*)
       (if (backend-featurep :sse2) "sse2f" "x86f"))
 (setf (backend-fasl-file-implementation *target-backend*)