Changeset 5718

Timestamp:

Jan 18, 2007, 2:59:42 AM (18 years ago)

Author:

Gary Byers

Message:

At least optionally, make structure return explicit (expecting it to
be handled by higher-level code.)

File:

• trunk/ccl/library/parse-ffi.lisp (modified) (3 diffs)

trunk/ccl/library/parse-ffi.lisp

@@ -18 +18 @@
 
 (defvar *parse-ffi-target-ftd* *target-ftd*)
+(defvar *ffi-struct-return-explicit* nil)
 (defvar *ffi-lisp-readtable* (copy-readtable nil))
 (defvar *ffi-ordinal* -1)
@@ -644 +645 @@
       (setq args (butlast args)))
     (when (ffi-record-type-p retval)
-      (push retval args)
-      (push `(:pointer ,retval) (ffi-function-arglist ffi-function))
-      (setf (ffi-function-return-value ffi-function) *ffi-void-reference*)
-      (setq retval *ffi-void-reference*))
+      (if *ffi-struct-return-explicit*
+        (format t "~& explicit struct return for ~s" ffi-function)
+        (progn
+          (push retval args)
+          (push `(:pointer ,retval) (ffi-function-arglist ffi-function))
+          (setf (ffi-function-return-value ffi-function) *ffi-void-reference*)
+          (setq retval *ffi-void-reference*))))
     (dolist (arg args) (ensure-referenced-type-defined arg))
     (ensure-referenced-type-defined retval)
@@ -712 +716 @@
          (*target-ftd* ftd)
          (*target-backend* backend)
+         (*ffi-struct-return-explicit* (getf (ftd-attributes ftd) :struct-return-explicit))
          (d (use-interface-dir dirname ftd))
          (interface-dir (merge-pathnames