Changeset 6463


Ignore:
Timestamp:
May 9, 2007, 7:30:15 AM (15 years ago)
Author:
gb
Message:

Try to make cross-compilation with x86-64 targets a little easier,
by using a cross-ftd interface directory.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

    r6172 r6463  
    152152              (case name
    153153                (:linuxx8664
    154                  (make-ftd :interface-db-directory "ccl:x86-headers64;"
     154                 (make-ftd :interface-db-directory
     155                           (if (eq backend *host-backend*)
     156                             "ccl:x86-headers64;"
     157                             "ccl:cross-x86-headers64;")
    155158                           :interface-package-name "X86-LINUX64"
    156159                           :attributes '(:bits-per-word  64
     
    166169                           (intern "GENERATE-CALLBACK-RETURN-VALUE" "X86-LINUX64")))
    167170                (:darwinx8664
    168                  (make-ftd :interface-db-directory "ccl:darwin-x86-headers64;"
     171                 (make-ftd :interface-db-directory
     172                           (if (eq backend *host-backend*)
     173                             "ccl:darwin-x86-headers64;"
     174                             "ccl:cross-darwin-x86-headers64;")
    169175                           :interface-package-name "X86-DARWIN64"
    170176                           :attributes '(:bits-per-word  64
     
    182188                           (intern "GENERATE-CALLBACK-RETURN-VALUE" "X86-DARWIN64")))
    183189                (:freebsdx8664
    184                  (make-ftd :interface-db-directory "ccl:freebsd-headers64;"
     190                 (make-ftd :interface-db-directory
     191                           (if (eq backend *host-backend*)
     192                             "ccl:freebsd-headers64;"
     193                             "ccl:cross-freebsd-headers64;")
    185194                           :interface-package-name "X86-FREEBSD64"
    186195                           :attributes '(:bits-per-word  64
     
    192201                                   "X86-FREEBSD64")
    193202                           :callback-bindings-function
    194                            (intern "GENERATE-CALLBACK-BINDINGS" "X86-FREEBS64")
     203                           (intern "GENERATE-CALLBACK-BINDINGS" "X86-FREEBSD64")
    195204                           :callback-return-value-function
    196205                           (intern "GENERATE-CALLBACK-RETURN-VALUE" "X86-FREEBSD64"))))))
Note: See TracChangeset for help on using the changeset viewer.