Changeset 5723

Timestamp:

Jan 18, 2007, 3:04:04 AM (18 years ago)

Author:

Gary Byers

Message:

New ftd stuff; new attributes for structure args/results.

File:

• trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp

@@ -270 +270 @@
                '(:signed-char t
                  :struct-by-value t
+                 :struct-return-in-registers t
+                 :struct-return-explicit t
+                 :struct-by-value-by-field t
                  :prepend-underscores t
                  :bits-per-word  64)
                #+linuxppc-target
-               '(:bits-per-word  64))))
+               '(:bits-per-word  64)
+               :ff-call-expand-function
+               #+linuxppc-target
+               'ppc64::linux-expand-ff-call
+               #+darwinppc-target
+               'ppc64::darwin-expand-ff-call
+               )))
     (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)