X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.lisp;h=ac4116ae8fd0ad9f0556d3ed4beb6db2f408cea4;hb=3f02f80ce6909ada82d9791172821756f967a844;hp=0f47eb70b2d104134d9d354d4ee193481f5fc0d8;hpb=218088774006bd9df58df318a6b3981065dfc71f;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)