Skip to content
Snippets Groups Projects
Commit e5a2fa14 authored by Raymond Toy's avatar Raymond Toy
Browse files

Wrap exports in eval-when for ppc as was done for sparc and add

CHAR-BYTES to ppc cross-compile script.

This is untested.
parent ba06f21f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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)))
......
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment