Changeset 5715

Timestamp:

Jan 18, 2007, 2:54:38 AM (18 years ago)

Author:

Gary Byers

Message:

ff-call-expander function in ftd.

File:

• trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp

@@ -421 +421 @@
                  :poweropen-alignment t)
                #+linuxppc-target
-               '(:bits-per-word 32))))
+               '(:bits-per-word 32)
+               :ff-call-expand-function
+               #+linuxppc-target
+               'ppc32::linux-expand-ff-call
+               #+darwinppc-target
+               'ppc32::darwin-expand-ff-call
+               )))
     (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)