--- ocaml-mysql-1.1.3.old/mysql_stubs.c 2014-10-16 16:35:05.000000000 +0100
+++ ocaml-mysql-1.1.3/mysql_stubs.c 2014-11-03 13:12:11.562441200 +0000
@@ -508,14 +508,14 @@
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 @@
{
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));
}