X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fparms.lisp;h=eddee91a3c328d671279a9b999228293e39a4057;hb=22a6702974b7d6ff4e8f2b3b7b5ff446fc632de0;hp=fce1a511b6a139c8b3cc1fe7b8c7339cc3d17056;hpb=3a0f3612dc2bbf3e4e8e7395bcbbf8cd1791b963;p=sbcl.git diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index fce1a51..eddee91 100644 --- a/src/compiler/ppc/parms.lisp +++ b/src/compiler/ppc/parms.lisp @@ -102,14 +102,14 @@ (progn #!+gencgc (progn - (def!constant dynamic-space-start #x50000000) - (def!constant dynamic-space-end #x7ffff000)) + (def!constant dynamic-space-start #x4f000000) + (def!constant dynamic-space-end #x7efff000)) #!-gencgc (progn - (def!constant dynamic-0-space-start #x50000000) - (def!constant dynamic-0-space-end #x67fff000) - (def!constant dynamic-1-space-start #x68000000) - (def!constant dynamic-1-space-end #x7ffff000)) + (def!constant dynamic-0-space-start #x4f000000) + (def!constant dynamic-0-space-end #x66fff000) + (def!constant dynamic-1-space-start #x67000000) + (def!constant dynamic-1-space-end #x7efff000)) (def!constant linkage-table-space-start #x0a000000) (def!constant linkage-table-space-end #x0b000000) @@ -169,47 +169,17 @@ ;;; can be loaded directly out of them by indirecting relative to NIL. ;;; (defparameter *static-symbols* - '(t - - ;; The C startup code must fill these in. - *posix-argv* - - ;; functions that the C code needs to call - sb!impl::sub-gc - sb!kernel::internal-error - sb!kernel::control-stack-exhausted-error - sb!kernel::undefined-alien-variable-error - sb!kernel::undefined-alien-function-error - sb!di::handle-breakpoint - sb!impl::fdefinition-object - - ;; free pointers - *read-only-space-free-pointer* - *static-space-free-pointer* - *initial-dynamic-space-free-pointer* - - ;; things needed for non-local exit - *current-catch-block* - *current-unwind-protect-block* - - *binding-stack-start* - *control-stack-start* - *control-stack-end* - - ;; interrupt handling - *free-interrupt-context-index* - sb!unix::*interrupts-enabled* - sb!unix::*interrupt-pending* - *gc-inhibit* - *gc-pending* - - *restart-lisp-function* - - ;; CLH: 20060210 Taken from x86-64/parms.lisp per JES' suggestion - ;; Needed for callbacks to work across saving cores. see - ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory - ;; details. - sb!alien::*enter-alien-callback*)) + (append + *common-static-symbols* + *c-callable-static-symbols* + '( + #!+gencgc *restart-lisp-function* + + ;; CLH: 20060210 Taken from x86-64/parms.lisp per JES' suggestion + ;; Needed for callbacks to work across saving cores. see + ;; ALIEN-CALLBACK-ASSEMBLER-WRAPPER in c-call.lisp for gory + ;; details. + sb!alien::*enter-alien-callback*))) (defparameter *static-funs* '(length