[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-02-12-gc623db6

[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  c623db61db3f9538b79582a1331d86f22d03e7ac (commit)
      from  d9a51ad03487c82a9d5998c1b2b4490447141b76 (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 c623db61db3f9538b79582a1331d86f22d03e7ac
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Feb 11 18:16:23 2012 -0800

    Add the fpu type to kernel.core on x86.  Needed to set the fpu_mode
    when it's loaded so that the C code knows what to do.  In particular
    call_into_lisp needs to know to save the correct fpu state.

diff --git a/src/compiler/generic/new-genesis.lisp b/src/compiler/generic/new-genesis.lisp
index d356c36..ee417f4 100644
--- a/src/compiler/generic/new-genesis.lisp
+++ b/src/compiler/generic/new-genesis.lisp
@@ -2925,9 +2925,22 @@
       ;; Write the Version entry.
       ;; 
       (write-long version-entry-type-code)
-      (write-long 3)
-      (write-long version)
 
+      ;; For x86, identify the core as using either x87 or sse2
+      ;; instructions.
+      (cond ((and (eql (c:backend-fasl-file-implementation c:*backend*)
+		       c:x86-fasl-file-implementation)
+		  (c:backend-featurep :sse2))
+	     (write-long 4)
+	     (write-long version)
+	     ;; See the definition of fpu_mode_t in lisp.h for correct
+	     ;; values to use here.
+	     (write-long (if (c:backend-featurep :sse2)
+			     2		; fpu_mode_t = SSE2
+			     1)))
+	    (t
+	     (write-long 3)
+	     (write-long version)))
       ;; Write the New Directory entry header.
       ;; 
       (write-long new-directory-entry-type-code)

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

Summary of changes:
 src/compiler/generic/new-genesis.lisp |   17 +++++++++++++++--
 1 files changed, 15 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp