[Openmcl-cvs-notifications] r12659 - /trunk/source/objc-bridge/objc-support.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 24 03:16:27 2009
New Revision: 12659

Log:
Arrgh.  Need to straighten out Darwin leading underscores nonsense.





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

Modified: trunk/source/objc-bridge/objc-support.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/objc-bridge/objc-support.lisp (original)
+++ trunk/source/objc-bridge/objc-support.lisp Mon Aug 24 03:16:27 2009
@@ -144,10 +144,10 @@
   (flet ((set-global (offset name)
            (setf (%get-ptr (%int-to-ptr (+ (target-nil-value) (%kernel-glo=
bal-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")))
 =

 =

 (def-ccl-pointers setup-objc-exception-handling ()