Changeset 5787

Timestamp:

Jan 24, 2007, 1:28:46 AM (18 years ago)

Author:

Gary Byers

Message:

A few more fields (for callbacks) in ftd defstruct.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (2 diffs)

trunk/ccl/lib/foreign-types.lisp

@@ -55 +55 @@
   (dirlist (make-dll-header))
   (attributes ())
-  (ff-call-expand-function ()))
+  (ff-call-expand-function ())
+  (ff-call-struct-return-by-implicit-arg-function ())
+  (callback-bindings-function ())
+  (callback-return-value-function ()))
 
 
@@ -75 +78 @@
                       :prepend-underscores #+darwinppc-target t #-darwinppc-target nil)
                     :ff-call-expand-function
-                    'os::expand-ff-call 
+                    'os::expand-ff-call
+                    :ff-call-struct-return-by-implicit-arg-function
+                    'os::record-type-returns-structure-as-first-arg
+                    :callback-bindings-function
+                    'os::generate-callback-bindings
+                    :callback-return-value-function
+                    'os::generate-callback-return-value
                     ))