Changeset 6778 for branches

Timestamp:

Jun 26, 2007, 2:11:17 AM (17 years ago)

Author:

Gary Byers

Message:

Replace some unused globals with things for ObjC 2.0 exception handling.

File:

• branches/ide-1.0/ccl/compiler/X86/x86-arch.lisp (modified) (4 diffs)

branches/ide-1.0/ccl/compiler/X86/x86-arch.lisp

@@ -32 +32 @@
     interrupt-signal                    ; used by PROCESS-INTERRUPT
     kernel-imports                      ; some things we need to have imported for us.
-    tcr-lock
+    objc-2-personality
     emulator-registers                  ; Where the 68K registers are kept.
     appmain                             ; application's (c-runtime) main() function
@@ -55 +55 @@
     statically-linked                   ; true if the lisp kernel is statically linked
     stack-size                          ; value of --stack-size arg
-    bad-current-ts                      ; current temp-stack area
+    objc-2-begin-catch                  ; objc_begin_catch
     bad-funcall                         ; pseudo-target for funcall
     all-areas                           ; doubly-linked area list
@@ -62 +62 @@
     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
@@ -73 +73 @@
     host-platform                       ; 0 on MacOS, 1 on PPC Linux, 2 on VxWorks ...
     batch-flag                          ; non-zero if --batch specified
-    BAD-fpscr-save                      ; lisp's fpscr when in FFI-land
+    unwind-resume                       ; _Unwind_Resume
     BAD-fpscr-save-high                 ; high word of FP reg used to save FPSCR
     image-name                          ; current image name