Changeset 10863 for trunk/source/library/parse-ffi.lisp

Timestamp:

Sep 24, 2008, 9:30:25 AM (11 years ago)

Author:

gb

Message:

I'm fairly sure that the primitive foreign type :long-long-long is a
128-bit integer maintained in an xmm register; I think that it only
shows up in the .ffi files because it's a gcc intrinsic type, but
really hope that it's not actually used for anything ...

:long and :unsigned-long should look first at the ftd's :bits-per-long
attribute. On our good friend win64, :long is smaller than a word.

File:

• trunk/source/library/parse-ffi.lisp (modified) (3 diffs)

trunk/source/library/parse-ffi.lisp

@@ -378 +378 @@
            (ecase (car spec)
              (:char (if (getf (ftd-attributes *parse-ffi-target-ftd*)
-                               :signed-char)
+                              :signed-char)
                       '(:signed 8)
                       '(:unsigned 8)))
@@ -388 +388 @@
              (:signed-long-long-long '(:signed 128))
              (:int '(:signed 32))
-             (:long (ecase (getf (ftd-attributes *parse-ffi-target-ftd*)
-                                :bits-per-word)
+             (:long (ecase (or
+                            (getf
+                             (ftd-attributes *parse-ffi-target-ftd*)
+                             :bits-per-long)
+                            (getf
+                             (ftd-attributes *parse-ffi-target-ftd*)
+                             :bits-per-word))
                       (32 '(:signed 32))
                       (64 '(:signed 64))))
              (:unsigned  '(:unsigned 32))
-             (:unsigned-long (ecase (getf
-                                     (ftd-attributes *parse-ffi-target-ftd*)
-                                     :bits-per-word)
+             (:unsigned-long (ecase (or
+                                     (getf
+                                      (ftd-attributes *parse-ffi-target-ftd*)
+                                      :bits-per-long)
+                                     (getf
+                                      (ftd-attributes *parse-ffi-target-ftd*)
+                                      :bits-per-word))
                                (32 '(:unsigned 32))
                                (64 '(:unsigned 64))))
@@ -407 +416 @@
              (:complex-double :complex-double)
              (:complex-long-double :complex-long-float)
+             (:long-long-long :long-long-long)
              #|(:void :void)|#)))))