Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5722)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5723)
@@ -270,8 +270,17 @@
                '(: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)