Changeset 9272


Ignore:
Timestamp:
Apr 24, 2008, 7:55:14 PM (12 years ago)
Author:
rme
Message:

In foreign-type translator for ARRAY, put in a little kludge to work around
the fact that the INDEX type is defined in terms of the host system's
ARRAY-DIMENSION-LIMIT.

Add trailing semicolon to darwinx8632 directory string.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/foreign-types.lisp

    r7813 r9272  
    8484                        (:darwinppc64 "ccl:darwin-headers64;")
    8585                        (:linuxppc64 "ccl:headers64;")
    86                         (:darwinx8632 "ccl:darwin-x86-headers")
     86                        (:darwinx8632 "ccl:darwin-x86-headers;")
    8787                        (:linuxx8664 "ccl:x86-headers64;")
    8888                        (:darwinx8664 "ccl:darwin-x86-headers64;")
     
    17611761    (def-foreign-type-translator array (ele-type &rest dims)
    17621762      (when dims
    1763         (unless (typep (first dims) '(or index null))
     1763        ;; cross-compiling kludge. replaces '(or index null)
     1764        (unless (typep (first dims) `(or
     1765                                      ,(target-word-size-case
     1766                                        (32 '(integer 0 #.(expt 2 24)))
     1767                                        (64 '(integer 0 #.(expt 2 56))))
     1768                                      null))
    17641769          (error "First dimension is not a non-negative fixnum or NIL: ~S"
    17651770                 (first dims)))
Note: See TracChangeset for help on using the changeset viewer.