Changeset 14742


Ignore:
Timestamp:
Apr 27, 2011, 11:19:01 PM (9 years ago)
Author:
gb
Message:

Register the foreign type ordinal of :ARRAY foreign types.

File:
1 edited

Legend:

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

    r14736 r14742  
    18641864        (declare (dynamic-extent pair))
    18651865        (ensure-foreign-type-bits type)
    1866         (or (gethash pair (ftd-array-types *target-ftd*))
    1867             (setf (gethash (cons type dims) (ftd-array-types *target-ftd*))
    1868                  
    1869                   (make-foreign-array-type
    1870                    :element-type type
    1871                    :dimensions dims
    1872                    :alignment (foreign-type-alignment type)
    1873                    :bits (if (and (ensure-foreign-type-bits type)
    1874                                   (every #'integerp dims))
    1875                            (* (align-offset (foreign-type-bits type)
    1876                                             (foreign-type-alignment type))
    1877                               (reduce #'* dims))))))))
     1866        (let* ((atype
     1867                (or (gethash pair (ftd-array-types *target-ftd*))
     1868                    (setf (gethash (cons type dims) (ftd-array-types *target-ftd*))
     1869                         
     1870                          (make-foreign-array-type
     1871                           :element-type type
     1872                           :dimensions dims
     1873                           :alignment (foreign-type-alignment type)
     1874                           :bits (if (and (ensure-foreign-type-bits type)
     1875                                          (every #'integerp dims))
     1876                                   (* (align-offset (foreign-type-bits type)
     1877                                                    (foreign-type-alignment type))
     1878                                      (reduce #'* dims))))))))
     1879          (note-foreign-type-ordinal atype *target-ftd*)
     1880          atype)))
    18781881
    18791882    (def-foreign-type-translator * (to)
Note: See TracChangeset for help on using the changeset viewer.