Changeset 8640


Ignore:
Timestamp:
Mar 3, 2008, 7:56:09 AM (12 years ago)
Author:
gb
Message:

REFERNCE-FFI-TYPE: 128-bit signed integer might be :LONG-LONG-LONG or
:SIGNED-LONG-LONG-LONG. Thankfully rarely used.
Size of :LONG (signed and unsigned) depends on ftd attribute :BITS-PER-LONG
(if it's defined), else :BITS-PER-WORD. ("long" is 32 bits on win64).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/library/parse-ffi.lisp

    r6977 r8640  
    375375             (:unsigned-short '(:unsigned 16))
    376376             ((:vec128 :unsigned-long-long-long) '(:unsigned 128))
    377              (:signed-long-long-long '(:signed 128))
     377             ((:long-long-long :signed-long-long-long) '(:signed 128))
    378378             (:int '(:signed 32))
    379              (:long (ecase (getf (ftd-attributes *parse-ffi-target-ftd*)
    380                                 :bits-per-word)
     379             (:long (ecase (or (getf (ftd-attributes *parse-ffi-target-ftd*)
     380                                     :bits-per-long)
     381                               (getf (ftd-attributes *parse-ffi-target-ftd*)
     382                                     :bits-per-word))
    381383                      (32 '(:signed 32))
    382384                      (64 '(:signed 64))))
    383385             (:unsigned  '(:unsigned 32))
    384              (:unsigned-long (ecase (getf
    385                                      (ftd-attributes *parse-ffi-target-ftd*)
    386                                      :bits-per-word)
     386             (:unsigned-long (ecase (or (getf (ftd-attributes *parse-ffi-target-ftd*)
     387                                              :bits-per-long)
     388                               (getf (ftd-attributes *parse-ffi-target-ftd*)
     389                                     :bits-per-word))
    387390                               (32 '(:unsigned 32))
    388391                               (64 '(:unsigned 64))))
Note: See TracChangeset for help on using the changeset viewer.