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 ba06f21ff5d6192b78746bd634eacb69fee17739 (commit) from 32d261e41c94c72e95ea13ea87c89a4b6f13ee45 (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 ba06f21ff5d6192b78746bd634eacb69fee17739 Author: Raymond Toy toy.raymond@gmail.com Date: Tue May 14 20:02:28 2013 -0700
Wrap exports in eval-when.
src/compiler/generic/objdef.lisp:: src/compiler/generic/utils.lisp:; src/compiler/generic/vm-macs.lisp:: src/compiler/sparc/c-callback.lisp:: src/compiler/sparc/parms.lisp::
When export lost its compile-time effects and became a normal function, the exports in many files no longer took affect while compiling the file. This change makes the compile-time effects happen as before in selected files. With this change, the sparc port can be cross-compiled from x86 again.
src/tools/cross-scripts/cross-x86-sparc.lisp:: Need to frob CHAR-BYTES, which is needed by BYTE-BASH-COPY. .
diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 0995883..d97d04e 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -18,7 +18,9 @@ (in-package "VM") (intl:textdomain "cmucl")
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(current-float-trap floating-point-modes sigfpe-handler)) +) (in-package "EXTENSIONS") (export '(set-floating-point-modes get-floating-point-modes with-float-traps-masked)) diff --git a/src/code/room.lisp b/src/code/room.lisp index 85e8a41..1c5418b 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -15,10 +15,12 @@ (use-package "SYSTEM") (intl:textdomain "cmucl")
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(memory-usage count-no-ops descriptor-vs-non-descriptor-storage instance-usage find-holes print-allocated-objects code-breakdown uninterned-symbol-count list-allocated-objects)) +) (in-package "LISP") (import '( dynamic-0-space-start dynamic-1-space-start read-only-space-start diff --git a/src/code/sparc-svr4-vm.lisp b/src/code/sparc-svr4-vm.lisp index 92b7af0..646dbd4 100644 --- a/src/code/sparc-svr4-vm.lisp +++ b/src/code/sparc-svr4-vm.lisp @@ -17,10 +17,12 @@
(intl:textdomain "cmucl-sparc-vm")
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register sigcontext-float-register sigcontext-floating-point-modes extern-alien-name sanctify-for-execution)) +)
#+complex-fp-vops (sys:register-lisp-feature :complex-fp-vops) diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp index da04b4f..d64178a 100644 --- a/src/compiler/generic/objdef.lisp +++ b/src/compiler/generic/objdef.lisp @@ -17,6 +17,7 @@ (in-package "VM") (intl:textdomain "cmucl")
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask target-most-positive-fixnum target-most-negative-fixnum even-fixnum-type function-pointer-type other-immediate-0-type @@ -52,6 +53,7 @@ complex-double-double-float-type simple-array-double-double-float-type simple-array-complex-double-double-float-type)) +)
(in-package "KERNEL") (export '(%make-funcallable-instance diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp index e036fa8..fe24ad0 100644 --- a/src/compiler/generic/utils.lisp +++ b/src/compiler/generic/utils.lisp @@ -17,8 +17,10 @@ (in-package "VM") (intl:textdomain "cmucl")
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(fixnumize static-symbol-p static-symbol-offset offset-static-symbol static-function-offset)) +)
diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp index f97ac12..883cdb1 100644 --- a/src/compiler/generic/vm-macs.lisp +++ b/src/compiler/generic/vm-macs.lisp @@ -163,8 +163,8 @@ (forms `(def-alloc ,alloc-trans ,offset ,variable-length ,header ,lowtag ',(inits)))) `(progn - (export ',(exports)) (eval-when (compile load eval) + (export ',(exports)) (%define-primitive-object ',(make-primitive-object :name name :header header diff --git a/src/compiler/sparc/c-callback.lisp b/src/compiler/sparc/c-callback.lisp index 24bd7af..b1fa10c 100644 --- a/src/compiler/sparc/c-callback.lisp +++ b/src/compiler/sparc/c-callback.lisp @@ -13,8 +13,10 @@ (use-package "ALIEN-INTERNALS") ;;; 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) (let ((parsed-type (alien::parse-alien-type type))) diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp index 4ff61bc..be73a40 100644 --- a/src/compiler/sparc/parms.lisp +++ b/src/compiler/sparc/parms.lisp @@ -61,6 +61,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
@@ -86,6 +87,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)) @@ -208,11 +210,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. Must match the C code! ;;; @@ -228,6 +232,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 after-breakpoint-trap allocation-trap @@ -239,6 +244,7 @@ #+heap-overflow-check (export '(dynamic-space-overflow-error-trap dynamic-space-overflow-warning-trap)) +) (defenum (:suffix -trap :start 8) halt @@ -268,7 +274,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-sparc.lisp b/src/tools/cross-scripts/cross-x86-sparc.lisp index 0e6dfbd..3525b69 100644 --- a/src/tools/cross-scripts/cross-x86-sparc.lisp +++ b/src/tools/cross-scripts/cross-x86-sparc.lisp @@ -186,8 +186,10 @@ (find-symbol ,(symbol-name sym) :vm)))) syms)))) - (frob OLD-VM:BYTE-BITS OLD-VM:WORD-BITS + (frob OLD-VM:BYTE-BITS + OLD-VM:WORD-BITS OLD-VM:CHAR-BITS + OLD-VM:CHAR-BYTES OLD-VM:LOWTAG-BITS #+long-float OLD-VM:SIMPLE-ARRAY-LONG-FLOAT-TYPE OLD-VM:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE
-----------------------------------------------------------------------
Summary of changes: src/code/float-trap.lisp | 2 ++ src/code/room.lisp | 2 ++ src/code/sparc-svr4-vm.lisp | 2 ++ src/compiler/generic/objdef.lisp | 2 ++ src/compiler/generic/utils.lisp | 2 ++ src/compiler/generic/vm-macs.lisp | 2 +- src/compiler/sparc/c-callback.lisp | 2 ++ src/compiler/sparc/parms.lisp | 8 ++++++++ src/tools/cross-scripts/cross-x86-sparc.lisp | 4 +++- 9 files changed, 24 insertions(+), 2 deletions(-)
hooks/post-receive