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 e5a2fa14f92ca98db53d5241378c5850434998aa (commit) from ba06f21ff5d6192b78746bd634eacb69fee17739 (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 e5a2fa14f92ca98db53d5241378c5850434998aa Author: Raymond Toy toy.raymond@gmail.com Date: Tue May 14 20:20:44 2013 -0700
Wrap exports in eval-when for ppc as was done for sparc and add CHAR-BYTES to ppc cross-compile script.
This is untested.
diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index bba9f78..fa6a643 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -19,12 +19,13 @@
(intl:textdomain "cmucl-ppc-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 sigcontext-lr)) - +) ;;;; The sigcontext structure. ;;;; Note that the layout of this thing matches the word offsets PT_xxx, not diff --git a/src/compiler/ppc/c-callback.lisp b/src/compiler/ppc/c-callback.lisp index 928de09..29d6731 100644 --- a/src/compiler/ppc/c-callback.lisp +++ b/src/compiler/ppc/c-callback.lisp @@ -19,8 +19,10 @@ (in-package "PPC")
+(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/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index a885626..deac614 100644 --- a/src/compiler/ppc/parms.lisp +++ b/src/compiler/ppc/parms.lisp @@ -49,6 +49,7 @@ ;;;; Machine Architecture parameters:
+(eval-when (:compile-toplevel :load-toplevel :execute) (export '(word-bits byte-bits char-bits word-shift word-bytes char-bytes float-sign-shift
@@ -66,6 +67,7 @@ float-imprecise-trap-bit float-invalid-trap-bit float-divide-by-zero-trap-bit float-invalid-op-1-byte)) +)
#+double-double (export '(double-double-float-digits)) @@ -166,11 +168,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. @@ -188,12 +192,14 @@ ;;;; 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 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) @@ -217,8 +223,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-ppc-darwin.lisp b/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp index 0d492de..417d4e0 100644 --- a/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp +++ b/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp @@ -158,8 +158,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/ppc-vm.lisp | 3 ++- src/compiler/ppc/c-callback.lisp | 2 ++ src/compiler/ppc/parms.lisp | 9 ++++++++- src/tools/cross-scripts/cross-x86-ppc-darwin.lisp | 4 +++- 4 files changed, 15 insertions(+), 3 deletions(-)
hooks/post-receive