From 8a23403e39fb4a4abcb10947903f3053d2664214 Mon Sep 17 00:00:00 2001
From: Raman Varabets <raman+git@ahrefs.com>
Date: Wed, 13 Sep 2023 16:47:24 +0800
Subject: [PATCH] Fix binding negative ints

---
 lib/bind.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/bind.ml b/lib/bind.ml
index c292b31..4927f86 100644
--- a/lib/bind.ml
+++ b/lib/bind.ml
@@ -116,11 +116,11 @@ let short ?(unsigned = false) b param ~at =
     ~at
 
 let int ?(unsigned = false) b param ~at =
-  let p = allocate int param in
+  let p = allocate llong (Signed.LLong.of_int param) in
   bind b
-    ~buffer:(coerce (ptr int) (ptr void) p)
-    ~size:(sizeof int)
-    ~mysql_type:T.Type.long
+    ~buffer:(coerce (ptr llong) (ptr void) p)
+    ~size:(sizeof llong)
+    ~mysql_type:T.Type.long_long
     ~unsigned:(if unsigned then yes else no)
     ~at