Fix space leaks in pointset.

diff --git a/lib/common/pointset.c b/lib/common/pointset.c
index f82ba0c1b9c9dd089facdb2b8ff65d8b25a857b2..3c098d3f1240630ca75f60e75d72d560dfc5b7e7 100644 (file)
--- a/lib/common/pointset.c
+++ b/lib/common/pointset.c
@@ -129,7 +129,7 @@ typedef struct {
 
 static mpair *mkMPair(Dt_t * d, mpair * obj, MPairDisc * disc)
 {
-    mpair *ap = GNEW(mpair);
+    mpair *ap;
 
     if (disc->flist) {
        ap = disc->flist;
@@ -180,11 +180,11 @@ void freePM(PointMap * ps)
     mpair *p;
     mpair *next;
 
+    dtclose(ps);
     for (p = dp->flist; p; p = next) {
        next = (mpair *) (p->link.right);
        free(p);
     }
-    dtclose(ps);
     free(dp);
 }