Changeset 5808

Timestamp:

Jan 29, 2007, 3:36:27 AM (18 years ago)

Author:

Gary Byers

Message:

Use new callback scheme for darwinppc32, too.

File:

• trunk/ccl/lib/macros.lisp (modified) (4 diffs)

trunk/ccl/lib/macros.lisp

@@ -2357 +2357 @@
 
 (defun define-callback (name args body env)
-  #+linuxppc-target
+  #+(or linuxppc-target (and darwinppc-target 32-bit-target))
   (let* ((stack-word (gensym))
          (stack-ptr (gensym))
@@ -2422 +2422 @@
               ,woi
               ,monitor))))))
-  #-linuxppc-target
+  #-(or linuxppc-target (and darwinppc-target 32-bit-target))
   (funcall (backend-define-callback *target-backend*)
            name
@@ -2432 +2432 @@
 (defun defcallback-body (&rest args)
   (declare (dynamic-extent args))
-  #+linuxppc-target
+  #+(or linuxppc-target (and darwinppc-target 32-bit-target))
   (destructuring-bind (stack-ptr fp-args-ptr lets rlets inits dynamic-extent-decls other-decls body return-type struct-return-arg error-return error-delta) args
       (let* ((result (gensym))
@@ -2461 +2461 @@
           (,condition-name (,cond) (,error-return-function ,cond ,stack-ptr (%inc-ptr ,stack-ptr ,error-delta)))))
       body)))
-  #-linuxppc-target
+  #-(or linuxppc-target (and darwinppc-target 32-bit-target))
   (apply (backend-defcallback-body *target-backend*) args))