collect now also frees objects in the free list

Allows for better management of memory

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 8 insertions, 0 deletions

diff --git a/jim.c b/jim.c
index c415a67..fabb67e 100644
--- a/jim.c
+++ b/jim.c
@@ -13059,6 +13059,14 @@ static int Jim_CollectCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *
         return JIM_ERR;
     }
     Jim_SetResultInt(interp, Jim_Collect(interp));
+
+    /* Free all the freed objects. */
+    while (interp->freeList) {
+        Jim_Obj *nextObjPtr = interp->freeList->nextObjPtr;
+        Jim_Free(interp->freeList);
+        interp->freeList = nextObjPtr;
+    }
+
     return JIM_OK;
 }