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 1e71e3b6354e39c14e9d18b76bdefb779d5bb9e1..692feaa38b24b22c84d28992251ae637619b34d7 100644 (file)
--- a/libraries/liblmdb/mdb.c
+++ b/libraries/liblmdb/mdb.c
@@ -3109,9 +3109,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 */