dev-ml/ocaml-mysql/files/oc43.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Index: ocaml-mysql-1.2.0/mysql_stubs.c
===================================================================
--- ocaml-mysql-1.2.0.orig/mysql_stubs.c
+++ ocaml-mysql-1.2.0/mysql_stubs.c
@@ -508,14 +508,14 @@ db_fetch (value result)
 
 EXTERNAL value
 db_to_row(value result, value offset) {
-  int64 off = Int64_val(offset);
+  int64_t off = Int64_val(offset);
   MYSQL_RES *res;
 
   res = RESval(result);
   if (!res) 
     mysqlfailwith("Mysql.to_row: result did not return fetchable data");
 
-  if (off < 0 || off > (int64)mysql_num_rows(res)-1)
+  if (off < 0 || off > (int64_t)mysql_num_rows(res)-1)
     invalid_argument("Mysql.to_row: offset out of range");
 
   mysql_data_seek(res, off);
@@ -640,13 +640,13 @@ db_size(value result)
 {
   CAMLparam1(result);
   MYSQL_RES *res;
-  int64 size;
+  int64_t size;
 
   res = RESval(result);
   if (!res)
     size = 0;
   else
-    size = (int64)(mysql_num_rows(res));
+    size = (int64_t)(mysql_num_rows(res));
   
   CAMLreturn(copy_int64(size));
 }