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

[Raymond Toy]

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