Changeset 5749

Timestamp:

Jan 20, 2007, 6:24:19 PM (18 years ago)

Author:

Gary Byers

Message:

Use os::expand-ff-call, for each value of OS.

Location:

trunk/ccl/compiler/PPC

Files:

• PPC32/ppc32-backend.lisp (modified) (2 diffs)
• PPC64/ppc64-backend.lisp (modified) (1 diff)

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

@@ -371 +371 @@
                 :target-fasl-pathname (make-pathname :type "dfsl")
                 :target-platform (logior platform-word-size-32
-                                             platform-cpu-ppc
-                                             platform-os-darwin)
+                                         platform-cpu-ppc
+                                         platform-os-darwin)
                 :target-os :darwinppc
                 :name :darwinppc32
@@ -424 +424 @@
                :ff-call-expand-function
                #+linuxppc-target
-               'ppc32::linux-expand-ff-call
+               'linux32::expand-ff-call
                #+darwinppc-target
-               'ppc32::darwin-expand-ff-call
+               'darwin32::expand-ff-call
                )))
     (install-standard-foreign-types ftd)

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

@@ -279 +279 @@
                :ff-call-expand-function
                #+linuxppc-target
-               'ppc64::linux-expand-ff-call
+               'linux64::expand-ff-call
                #+darwinppc-target
-               'ppc64::darwin-expand-ff-call
+               'darwin64::expand-ff-call
                )))
     (install-standard-foreign-types ftd)