Changeset 10122


Ignore:
Timestamp:
Jul 19, 2008, 2:52:39 AM (11 years ago)
Author:
rme
Message:

Specify interface database pathname for Darwin/x8632.

Small kludge in array foreign-type-translator to support
cross-compiling to a 32 bit target on a 64 bit host.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/foreign-types.lisp

    r10108 r10122  
    8484                        (:darwinppc64 "ccl:darwin-headers64;")
    8585                        (:linuxppc64 "ccl:headers64;")
     86                        (:darwinx8632 "ccl:darwin-x86-headers;")
    8687                        (:linuxx8664 "ccl:x86-headers64;")
    8788                        (:darwinx8664 "ccl:darwin-x86-headers64;")
     
    17821783    (def-foreign-type-translator array (ele-type &rest dims)
    17831784      (when dims
    1784         (unless (typep (first dims) '(or index null))
     1785        ;; cross-compiling kludge. replaces '(or index null)
     1786        (unless (typep (first dims) `(or
     1787                                      ,(target-word-size-case
     1788                                        (32 '(integer 0 #.(expt 2 24)))
     1789                                        (64 '(integer 0 #.(expt 2 56))))
     1790                                      null))
    17851791          (error "First dimension is not a non-negative fixnum or NIL: ~S"
    17861792                 (first dims)))
Note: See TracChangeset for help on using the changeset viewer.