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 7889e989541ed40a753b2a884f7fbcf25e0a951d (commit) from e5a2fa14f92ca98db53d5241378c5850434998aa (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 7889e989541ed40a753b2a884f7fbcf25e0a951d Author: Raymond Toy toy.raymond@gmail.com Date: Tue May 14 20:30:16 2013 -0700
Wrap exports in eval-when for x86 as was done for sparc and add CHAR-BYTES to x86-x86 cross-compile script.
Only the change for CHAR-BYTES is needed for cross-compiling from x86 to x86, but I think the other changes will be needed if you do a cross-compile from some other arch to x86.
diff --git a/src/compiler/x86/c-callback.lisp b/src/compiler/x86/c-callback.lisp index cccc874..1eb5856 100644 --- a/src/compiler/x86/c-callback.lisp +++ b/src/compiler/x86/c-callback.lisp @@ -15,8 +15,10 @@ (intl:textdomain "cmucl-x86-vm")
;;; Support for callbacks to Lisp. +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(make-callback-trampoline callback-accessor-form compatible-function-types-p)) +)
(defun callback-accessor-form (type sp offset) `(alien:deref (sap-alien diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index 6a643af..bd69453 100644 --- a/src/compiler/x86/parms.lisp +++ b/src/compiler/x86/parms.lisp @@ -74,6 +74,7 @@ ;;;; Machine Architecture parameters:
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(word-bits byte-bits char-bits word-shift word-bytes char-bytes fixnum-tag-bits fixnum-tag-mask positive-fixnum-bits float-sign-shift @@ -96,6 +97,7 @@ float-underflow-trap-bit float-overflow-trap-bit float-imprecise-trap-bit float-invalid-trap-bit float-divide-by-zero-trap-bit)) +)
#+double-double (export '(double-double-float-digits)) @@ -224,11 +226,13 @@ ;;;; Description of the target address space.
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(target-read-only-space-start target-static-space-start target-dynamic-space-start target-foreign-linkage-space-start target-foreign-linkage-entry-size)) +)
;;; Where to put the different spaces. ;;; @@ -253,6 +257,7 @@ ;;;; Other random constants.
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(halt-trap pending-interrupt-trap error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap single-step-breakpoint-trap @@ -261,6 +266,7 @@ object-not-list-trap object-not-instance-trap trace-table-normal trace-table-call-site trace-table-function-prologue trace-table-function-epilogue)) +)
(defenum (:suffix -trap :start 8) halt @@ -288,7 +294,9 @@ ;;;; Static symbols.
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(static-symbols static-functions)) +)
;;; These symbols are loaded into static space directly after NIL so ;;; that the system can compute their address by adding a constant diff --git a/src/tools/cross-scripts/cross-x86-x86.lisp b/src/tools/cross-scripts/cross-x86-x86.lisp index fa4e31c..3f579f3 100644 --- a/src/tools/cross-scripts/cross-x86-x86.lisp +++ b/src/tools/cross-scripts/cross-x86-x86.lisp @@ -141,6 +141,7 @@ syms)))) (frob OLD-VM:BYTE-BITS OLD-VM:WORD-BITS OLD-VM:CHAR-BITS + OLD-VM:CHAR-BYTES #+long-float OLD-VM:SIMPLE-ARRAY-LONG-FLOAT-TYPE OLD-VM:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE OLD-VM:SIMPLE-ARRAY-SINGLE-FLOAT-TYPE
-----------------------------------------------------------------------
Summary of changes: src/compiler/x86/c-callback.lisp | 2 ++ src/compiler/x86/parms.lisp | 8 ++++++++ src/tools/cross-scripts/cross-x86-x86.lisp | 1 + 3 files changed, 11 insertions(+)
hooks/post-receive