bug fix in handling mapsize parameter

iraikov · Jun 5, 2016 · 6de2a0d · 6de2a0d
1 parent f3658c1
commit 6de2a0d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lmdb.scm b/lmdb.scm
@@ -160,6 +160,7 @@ struct _mdb *_mdb_init(char *fname, int maxdbs, size_t mapsize)
         chicken_lmdb_exception (rc, 38, "_mdb_init: error in mdb_env_set_maxdbs");
      }
   }
+  printf("mapsize = %zu\n", mapsize);
   if (mapsize > 0) 
   {
      if ((rc = mdb_env_set_mapsize(m->env, mapsize)) != 0)
@@ -328,7 +329,7 @@ int _mdb_count(struct _mdb *m)
 
 
 (define lmdb-init0 (foreign-safe-lambda* 
-                    nonnull-c-pointer ((nonnull-c-string fname) (int maxdbs) (int mapsize))
+                    nonnull-c-pointer ((nonnull-c-string fname) (int maxdbs) (size_t mapsize))
                     "C_return (_mdb_init (fname,maxdbs,mapsize));"))
 (define (lmdb-init fname #!key (maxdbs 0) (mapsize 0))
   (lmdb-init0 fname maxdbs mapsize))

diff --git a/lmdb.setup b/lmdb.setup
@@ -43,6 +43,6 @@
   `(,(dynld-name "lmdb") ,(dynld-name "lmdb.import") )
 
   ; Assoc list with properties for your extension:
-  `((version "2.1")
+  `((version "2.2")
     ))