Changeset 6361 for branches/x8664-call


Ignore:
Timestamp:
Apr 29, 2007, 9:24:42 AM (13 years ago)
Author:
gb
Message:

Use an ecase to initialize ftd interface dir; #. won't work if the
ftd is modified to simplify cross-compilation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lib/foreign-types.lisp

    r6223 r6361  
    7979(defvar *host-ftd* (make-ftd
    8080                    :interface-db-directory
    81                     #.(ftd-interface-db-directory *target-ftd*)
    82 
     81                    #.(ecase (backend-name *target-backend*)
     82                        (:linuxppc32 "ccl:headers;")
     83                        (:darwinppc32 "ccl:darwin-headers;")
     84                        (:darwinppc64 "ccl:darwin-headers64;")
     85                        (:linuxppc64 "ccl:headers64;")
     86                        (:linuxx8664 "ccl:x86-headers64;")
     87                        (:darwinx8664 "ccl:darwin-x86-headers64;")
     88                        (:freebsdx8664 "ccl:freebsd-headers64;"))
    8389                    :interface-package-name
    8490                    #.(ftd-interface-package-name *target-ftd*)
Note: See TracChangeset for help on using the changeset viewer.