Changeset 12659

Timestamp:

Aug 24, 2009, 7:16:27 AM (10 years ago)

Author:

gb

Message:

Arrgh. Need to straighten out Darwin leading underscores nonsense.

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 'objc-2-personality "__objc_personality_v0")
+    (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")))
+    (set-global 'unwind-resume "__Unwind_Resume")))