Ignore:
Timestamp:
Aug 25, 2008, 4:03:13 AM (12 years ago)
Author:
gb
Message:

Start to get this working on IA32. Still needs objc-error-handler
support in callbacks, varargs method support.

File:
1 edited

Legend:

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

    r9761 r10562  
    311311)
    312312
     313#+x8632-target
     314(progn
     315(defun objc-callback-error-return (condition return-value-pointer return-address-pointer)
     316  (declare (ignorable oondition return-value-pointer return-address-pointer))
     317  #||
     318  (process-debug-condition *current-process* condition (%get-frame-ptr))
     319  (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
     320    (setf (%get-unsigned-long ) )
     321  (setf (%get-ptr return-value-pointer 0) (ns-exception condition))
     322  ||#
     323  nil)
     324)
    313325
    314326)
Note: See TracChangeset for help on using the changeset viewer.