Changeset 6780


Ignore:
Timestamp:
Jun 29, 2007, 1:00:32 AM (17 years ago)
Author:
Gary Byers
Message:

WITH-NS-EXCEPTIONS-AS-ERRORS: no runtime exception handling in ObjC 2.0,
at least on 64-bit platforms.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ide-1.0/ccl/examples/objc-runtime.lisp

    r6683 r6780  
    28292829#+apple-objc-2.0
    28302830(defmacro with-ns-exceptions-as-errors (&body body)
    2831   (let* ((data (gensym))
    2832          (cframe (gensym)))
    2833     `(rletZ ((,data :_objc_exception_data))
    2834       (unwind-protect
    2835            (progn
    2836              (#_objc_exception_try_enter ,data)
    2837              (catch ,data
    2838                (with-c-frame ,cframe
    2839                  (%associate-jmp-buf-with-catch-frame
    2840                   ,data
    2841                   (%fixnum-ref (%current-tcr) target::tcr.catch-top)
    2842                   ,cframe)
    2843                  (progn
    2844                    ,@body))))
    2845         (check-ns-exception ,data)))))
     2831  `(progn ,@body))
    28462832                 
    28472833             
Note: See TracChangeset for help on using the changeset viewer.