X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.lisp;h=ac4116ae8fd0ad9f0556d3ed4beb6db2f408cea4;hb=44a2c6231b0a658e28705d5834549db9e0f1159f;hp=0f47eb70b2d104134d9d354d4ee193481f5fc0d8;hpb=09ef86d2df68776a773bcf35a32ee45e204f2200;p=uffi.git diff --git a/src/primitives.lisp b/src/primitives.lisp index 0f47eb7..ac4116a 100644 --- a/src/primitives.lisp +++ b/src/primitives.lisp @@ -97,8 +97,10 @@ supports takes advantage of this optimization." (:unsigned-short . (alien:unsigned 16)) (:int . (alien:signed 32)) (:unsigned-int . (alien:unsigned 32)) - (:long . (alien:signed 32)) - (:unsigned-long . (alien:unsigned 32)) + #-x86-64 (:long . (alien:signed 32)) + #-x86-64 (:unsigned-long . (alien:unsigned 32)) + #+x86-64 (:long . (alien:signed 64)) + #+x86-64 (:unsigned-long . (alien:unsigned 64)) (:float . alien:single-float) (:double . alien:double-float) (:void . t)