Changeset 5751

Timestamp:

Jan 20, 2007, 6:25:32 PM (18 years ago)

Author:

Gary Byers

Message:

Add references to the right os::ff-call-expander.

File:

• trunk/ccl/compiler/X86/X8664/x8664-backend.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

@@ -268 +268 @@
                           :interface-package-name "X86-LINUX64"
                           :attributes '(:bits-per-word  64
-                                        :struct-by-value t)))
+                                        :struct-by-value t)
+                          :ff-call-expand-function
+                          'x86-linux64::expand-ff-call
+                          :))
                 (:darwinx8664
                   (make-ftd :interface-db-directory "ccl:darwin-x86-headers64;"
@@ -275 +278 @@
                                         :signed-char t
                                         :struct-by-value t
-                                        :prepend-underscore t)))
+                                        :prepend-underscore t)
+                          :ff-call-expand-function
+                          'x86-darwin64::expand-ff-call))
                  (:freebsdx8664
                   (make-ftd :interface-db-directory "ccl:freebsd-headers64;"
                             :interface-package-name "X86-FREEBSD64"
                             :attributes '(:bits-per-word  64
-                                          :struct-by-value t))))))
+                                          :struct-by-value t)
+                          :ff-call-expand-function
+                          'x86-freebsd64::expand-ff-call)))))
         (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)