Changeset 10863 for trunk/source/library/parse-ffi.lisp
- Timestamp:
- Sep 24, 2008, 9:30:25 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/library/parse-ffi.lisp
r10519 r10863 378 378 (ecase (car spec) 379 379 (:char (if (getf (ftd-attributes *parse-ffi-target-ftd*) 380 380 :signed-char) 381 381 '(:signed 8) 382 382 '(:unsigned 8))) … … 388 388 (:signed-long-long-long '(:signed 128)) 389 389 (:int '(:signed 32)) 390 (:long (ecase (getf (ftd-attributes *parse-ffi-target-ftd*) 391 :bits-per-word) 390 (:long (ecase (or 391 (getf 392 (ftd-attributes *parse-ffi-target-ftd*) 393 :bits-per-long) 394 (getf 395 (ftd-attributes *parse-ffi-target-ftd*) 396 :bits-per-word)) 392 397 (32 '(:signed 32)) 393 398 (64 '(:signed 64)))) 394 399 (:unsigned '(:unsigned 32)) 395 (:unsigned-long (ecase (getf 396 (ftd-attributes *parse-ffi-target-ftd*) 397 :bits-per-word) 400 (:unsigned-long (ecase (or 401 (getf 402 (ftd-attributes *parse-ffi-target-ftd*) 403 :bits-per-long) 404 (getf 405 (ftd-attributes *parse-ffi-target-ftd*) 406 :bits-per-word)) 398 407 (32 '(:unsigned 32)) 399 408 (64 '(:unsigned 64)))) … … 407 416 (:complex-double :complex-double) 408 417 (:complex-long-double :complex-long-float) 418 (:long-long-long :long-long-long) 409 419 #|(:void :void)|#))))) 410 420
Note: See TracChangeset
for help on using the changeset viewer.