Changeset 12483


Ignore:
Timestamp:
Jul 31, 2009, 10:04:01 AM (10 years ago)
Author:
gb
Message:

Raise NSException via _NSRaiseException in Cocotron (not
NSRaiseError, as in Apple's ObjC runtime.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-support.lisp

    r12438 r12483  
    347347(defun objc-callback-error-return (condition return-value-pointer return-address-pointer)
    348348  (process-debug-condition *current-process* condition (%get-frame-ptr))
    349   (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
     349  (let* ((addr (%reference-external-entry-point (load-time-value (external #+cocotron-objc "_NSRaiseException" #-cocotron-objc "__NSRaiseError")))))
    350350    (setf (%get-unsigned-long return-value-pointer -12 ) addr))
    351351  (setf (%get-ptr return-value-pointer -8) (ns-exception condition)
Note: See TracChangeset for help on using the changeset viewer.