X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=uffi%2Fclsql-uffi.lisp;fp=uffi%2Fclsql-uffi.lisp;h=1bb9a1a90d0b6085b4d5f3d6d754fb5b4f5e2e80;hp=63267022dc7ce8c7710b36edee0c395907ce35d8;hb=645d2ea7396466b8673e3421b55e45cd327f0195;hpb=2ffbaf8f63878de07311a7a4a29dd737e0121ee8

diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp
index 6326702..1bb9a1a 100644
--- a/uffi/clsql-uffi.lisp
+++ b/uffi/clsql-uffi.lisp
@@ -77,10 +77,17 @@
   :returning :unsigned-int)
 
 (uffi:def-constant +2^32+ 4294967296)
+(uffi:def-constant +2^64+ 18446744073709551616)
 (uffi:def-constant +2^32-1+ (1- +2^32+))
 
 (defmacro make-64-bit-integer (high32 low32)
-  `(+ ,low32 (ash ,high32 32)))
+  `(if (zerop (ldb (byte 1 31) ,high32))
+       (+ ,low32 (ash ,high32 32))
+     (- (+ ,low32 (ash ,high32 32)) +2^64+)))
+
+;; From high to low ints
+(defmacro make-128-bit-integer (a b c d)
+  `(+ ,d (ash ,c 32) (ash ,b 64) (ash ,a 96)))
 
 (defmacro split-64-bit-integer (int64)
   `(values (ash ,int64 -32) (logand ,int64 +2^32-1+)))