diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-09 01:10:45 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-09 01:12:39 +0000 |
| commit | 06faa066d11e2e76ffcf0207f34ea8c6e66a1a76 (patch) | |
| tree | e70ece0aaa523610ea2f1c26cb42c3516ac9d1d8 /lib/external/lmdb.ml | |
| parent | 46782ba284f1421c866952a2de850c3d05113692 (diff) | |
| download | Sakura-06faa066d11e2e76ffcf0207f34ea8c6e66a1a76.tar.gz Sakura-06faa066d11e2e76ffcf0207f34ea8c6e66a1a76.zip | |
We're not using multiple LMDB databases, so avoid passing a name
Diffstat (limited to 'lib/external/lmdb.ml')
| -rw-r--r-- | lib/external/lmdb.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/external/lmdb.ml b/lib/external/lmdb.ml index a918ce8..ea60f94 100644 --- a/lib/external/lmdb.ml +++ b/lib/external/lmdb.ml @@ -46,11 +46,11 @@ let mdb_env_create' () = with_output_pointer let mdb_env_open = foreign "mdb_env_open" (ptr mdb_env @-> string @-> uint @-> mdb_mode_t @-> returning mdb_result) let mdb_env_close = foreign "mdb_env_close" (ptr mdb_env @-> returning void) -let mdb_dbi_open = foreign "mdb_dbi_open" (ptr mdb_txn @-> string @-> uint @-> ptr mdb_dbi @-> returning mdb_result) -let mdb_dbi_open' txn name flags = with_output_pointer - mdb_dbi - (Unsigned.UInt.of_int 0) - (mdb_dbi_open txn name flags) +let mdb_dbi_open = foreign "mdb_dbi_open" (ptr mdb_txn @-> ptr char @-> uint @-> ptr mdb_dbi @-> returning mdb_result) +let mdb_dbi_open' txn flags = with_output_pointer + mdb_dbi + (Unsigned.UInt.of_int 0) + (mdb_dbi_open txn (from_voidp char null) flags) let mdb_txn_begin = foreign "mdb_txn_begin" (ptr mdb_env @-> ptr mdb_txn @-> uint @-> ptr (ptr mdb_txn) @-> returning mdb_result) let mdb_txn_begin' env parent flags = with_output_pointer |