balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Vendors/lmdb: fixes in OCaml stubs

Browse Source
This commit is contained in:
Vincent Bernardoff 2018-07-26 13:24:01 +02:00 committed by Pierre Chambart
parent 2a4c6762a7
commit ccc61dbbc4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vendors/ocaml-lmdb/src/lmdb_stubs.c vendored
View File

@ -152,7 +152,7 @@ CAMLprim value stub_mdb_env_set_flags(value env, value flags, value onoff) {
} }
CAMLprim value stub_mdb_env_get_flags(value env) { CAMLprim value stub_mdb_env_get_flags(value env) {
int flags; unsigned int flags;
mdb_env_get_flags(Env_val(env), &flags); mdb_env_get_flags(Env_val(env), &flags);
return Val_int(flags); return Val_int(flags);
} }
@ -434,7 +434,10 @@ CAMLprim value stub_mdb_cursor_renew(value txn, value cursor) {
} }
CAMLprim value stub_mdb_cursor_txn(value cursor) { CAMLprim value stub_mdb_cursor_txn(value cursor) {
return (value) mdb_cursor_txn(Cursor_val(cursor)); CAMLparam1(cursor);
CAMLlocal1(txn);
txn = alloc_txn(mdb_cursor_txn(Cursor_val(cursor)));
CAMLreturn(txn);
} }
CAMLprim value stub_mdb_cursor_dbi(value cursor) { CAMLprim value stub_mdb_cursor_dbi(value cursor) {