Changeset 12648

Timestamp:

Aug 23, 2009, 5:14:54 AM (15 years ago)

Author:

Gary Byers

Message:

Remove leading underscores from foreign symbol addresses. (We're using
dlsym() on Darwin now - no more 10.3 support - and dlsym doesn't think
that the underscores are there.)

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-begin-catch "_objc_begin_catch")
-    (set-global 'objc-2-end-catch "_objc_end_catch")
-    (set-global '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")))