X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fparms.lisp;h=d5f88c892096887f63e22bef6d0e7ca3edbfed15;hb=98a76d4426660876dec6649b1e228d2e5b47f579;hp=3f2a52c7d388555a421ddcba18c2ab75ac858fc9;hpb=9cdf6e7130467382485e99c14e1ce6a48aa8b4b8;p=sbcl.git diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index 3f2a52c..d5f88c8 100644 --- a/src/compiler/ppc/parms.lisp +++ b/src/compiler/ppc/parms.lisp @@ -93,12 +93,6 @@ (def!constant read-only-space-start #x01000000) (def!constant read-only-space-end #x04ff8000) -(def!constant binding-stack-start #x06000000) -(def!constant binding-stack-end #x06ff0000) - -(def!constant control-stack-start #x07000000) -(def!constant control-stack-end #x07ff0000) - (def!constant static-space-start #x08000000) (def!constant static-space-end #x097fff00) @@ -156,30 +150,33 @@ ;; The C startup code must fill these in. *posix-argv* - sb!impl::*initial-fdefn-objects* - ;; Functions that the C code needs to call - ;; sb!impl::%initial-fun - sb!impl::maybe-gc + ;; functions that the C code needs to call + sb!impl::sub-gc sb!kernel::internal-error + sb!kernel::control-stack-exhausted-error sb!di::handle-breakpoint sb!impl::fdefinition-object - ;; Free Pointers. + ;; free pointers *read-only-space-free-pointer* *static-space-free-pointer* *initial-dynamic-space-free-pointer* - ;; Things needed for non-local-exit. + ;; things needed for non-local exit *current-catch-block* *current-unwind-protect-block* - ;; Interrupt Handling + *binding-stack-start* + *control-stack-start* + *control-stack-end* + + ;; interrupt handling *free-interrupt-context-index* sb!unix::*interrupts-enabled* sb!unix::*interrupt-pending* - #|sb!kernel::*current-thread*|# + )) (defparameter *static-funs*