[Openmcl-cvs-notifications] r11584 - /trunk/source/compiler/PPC/ppc-arch.lisp

[gb at clozure.com]

Author: gb
Date: Tue Jan  6 04:10:48 2009
New Revision: 11584

Log:
Add PPC kernel-global definitions for ObjC-2 exception stuff.

Modified:
    trunk/source/compiler/PPC/ppc-arch.lisp

Modified: trunk/source/compiler/PPC/ppc-arch.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/PPC/ppc-arch.lisp (original)
+++ trunk/source/compiler/PPC/ppc-arch.lisp Tue Jan  6 04:10:48 2009
@@ -228,7 +228,7 @@
     tcr-count
     interrupt-signal			; used by PROCESS-INTERRUPT
     kernel-imports                      ; some things we need to have impo=
rted for us.
-    tcr-lock
+    objc-2-personality
     emulator-registers                  ; Where the 68K registers are kept.
     appmain                             ; application's (c-runtime) main()=
 function
     subprims-base                       ; start of dynamic subprims jump t=
able
@@ -250,15 +250,15 @@
     heap-start                          ; start of lisp heap
     heap-end                            ; end of lisp heap
     statically-linked                   ; true if the lisp kernel is stati=
cally linked
-    stack-size                          ; value of --stack-size arg
-    bad-current-ts                      ; current temp-stack area
+    stack-size                          ; weak gc policy/algorithm
+    objc-2-begin-catch                  ; objc_begin_catch
     bad-cs-overflow-limit               ; limit for control-stack overflow=
 check
     all-areas                           ; doubly-linked area list
     lexpr-return                        ; multiple-value lexpr return addr=
ess
     lexpr-return1v                      ; single-value lexpr return address
     in-gc                               ; non-zero when GC-ish thing active
     metering-info                       ; kernel metering structure
-    doh-head                            ; creole
+    objc-2-end-catch                    ; _objc_end_catch
     short-float-zero                    ; low half of 1.0d0
     double-float-one                    ; high half of 1.0d0
     ffi-exception                       ; ffi fpscr[fex] bit
@@ -269,7 +269,7 @@
     argv                                ; address of C lib argv
     host-platform                       ; 0 on MacOS, 1 on PPC Linux, 2 on=
 VxWorks ...
     batch-flag				; non-zero if --batch specified
-    unwind-resume                       ; objc exception
+    unwind-resume                       ; _Unwind_Resume
     weak-gc-method                      ; for gc
     image-name				; current image name
     initial-tcr                         ; initial thread's context record