Ignore:
Timestamp:
May 17, 2005, 10:32:19 AM (15 years ago)
Author:
gb
Message:

Get GETF arg order right ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/parse-ffi.lisp

    r1452 r1454  
    367367     (list :primitive
    368368           (ecase (car spec)
    369              (:char (if (getf :signed-char
    370                                (ftd-attributes *parse-ffi-target-ftd*))
     369             (:char (if (getf (ftd-attributes *parse-ffi-target-ftd*)
     370                               :signed-char)
    371371                      '(:signed 8)
    372372                      '(:unsigned 8)))
     
    376376             (:unsigned-short '(:unsigned 16))
    377377             (:int '(:signed 32))
    378              (:long (ecase (getf :bits-per-word
    379                                 (ftd-attributes *parse-ffi-target-ftd*))
     378             (:long (ecase (getf (ftd-attributes *parse-ffi-target-ftd*)
     379                                :bits-per-word)
    380380                      (32 '(:signed 32))
    381381                      (64 '(:signed 64))))
    382382             (:unsigned  '(:unsigned 32))
    383              (:unsigned-long (ecase (getf :bits-per-word
    384                                 (ftd-attributes *parse-ffi-target-ftd*))
     383             (:unsigned-long (ecase (getf
     384                                     (ftd-attributes *parse-ffi-target-ftd*)
     385                                     :bits-per-word)
    385386                               (32 '(:unsigned 32))
    386387                               (64 '(:unsigned 64))))
Note: See TracChangeset for help on using the changeset viewer.