[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-05-2-ge5a2fa1

Raymond Toy rtoy at common-lisp.net
Wed May 15 03:21:01 UTC 2013


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 at 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
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list