Changeset 11588 for trunk/source/objc-bridge/objc-support.lisp

Timestamp:

Jan 6, 2009, 9:17:25 AM (13 years ago)

Author:

gb

Message:

The arch-specific macro %KERNEL-GLOBAL-OFFSET doesn't care what package
its first arg is in, and we want to set the ObjC-2 exception globals
on both PPC64 and X8664 ...

File:

• trunk/source/objc-bridge/objc-support.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-support.lisp

@@ -145 +145 @@
            (setf (%get-ptr (%int-to-ptr (+ (target-nil-value) (%kernel-global-offset offset))))
                  (foreign-symbol-address name))))
-    (set-global 'x86::objc-2-personality "___objc_personality_v0")
-    (set-global 'x86::objc-2-begin-catch "_objc_begin_catch")
-    (set-global 'x86::objc-2-end-catch "_objc_end_catch")
-    (set-global 'x86::unwind-resume "__Unwind_Resume")))
+    (set-global 'objc-2-personality "___objc_personality_v0")
+    (set-global 'objc-2-begin-catch "_objc_begin_catch")
+    (set-global 'objc-2-end-catch "_objc_end_catch")
+    (set-global 'unwind-resume "__Unwind_Resume")))