ITS#9007 don't free loose writemap pages

Broken in ITS#8756

diff --git a/libraries/liblmdb/mdb.c b/libraries/liblmdb/mdb.c
index cfd69f7afda1a083f10e7ee361b0f5b4bff6a586..f68542124ed00e80770635aca90cf8d509fcabad 100644 (file)
--- a/libraries/liblmdb/mdb.c
+++ b/libraries/liblmdb/mdb.c
@@ -3459,9 +3459,9 @@ mdb_freelist_save(MDB_txn *txn)
                        } else {
                                x = mdb_mid2l_search(dl, mp->mp_pgno);
                                mdb_tassert(txn, dl[x].mid == mp->mp_pgno);
+                               mdb_dpage_free(env, mp);
                        }
                        dl[x].mptr = NULL;
-                       mdb_dpage_free(env, mp);
                }
                {
                        /* squash freed slots out of the dirty list */