Changeset 5740

Timestamp:

Jan 18, 2007, 10:15:36 PM (18 years ago)

Author:

Gary Byers

Message:

Load with the new ffi-backend fasls.

File:

• trunk/ccl/level-1/l1-boot-2.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-boot-2.lisp

@@ -27 +27 @@
                                   (namestring (backend-target-fasl-pathname
                                                *target-backend*)))))
-               `(let* ((*loading-file-source-file* *loading-file-source-file*))
+       `(let* ((*loading-file-source-file* *loading-file-source-file*))
                  (%fasload ,namestring))))
            (bin-load (name)
@@ -227 +227 @@
 
       (bin-load-provide "FOREIGN-TYPES" "foreign-types")
+
+      #+(and ppc32-target linux-target)
+      (bin-load-provide "FFI-LINUXPPC32" "ffi-linuxppc32")
+      #+(and ppc32-target darwin-target)
+      (bin-load-provide "FFI-DARWINPPC32" "ffi-darwinppc32")
+      #+(and ppc64-target darwin-target)
+      (bin-load-provide "FFI-DARWINPPC64" "ffi-darwinppc64")
+      #+(and ppc64-target linux-target)
+      (bin-load-provide "FFI-LINUXPPC64" "ffi-linuxppc64")
+      #+(and x8664-target linux-target)  
+      (bin-load-provide "FFI-LINUXX8664" "ffi-linuxx8664")
+      #+(and x8664-target darwin-target)  
+      (bin-load-provide "FFI-DARWINX8664" "ffi-darwinx8664")
+      #+(and x8664-target freebsd-target)  
+      (bin-load-provide "FFI-FREEBSDX8664" "ffi-freebsdx8664")
+      
       (bin-load-provide "DB-IO" "db-io")