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@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