Index: TODO =================================================================== diff -u -r67591822465e64d9051583c9aa71f8d3a4ef5c96 -r5dd22868ad67333b73cf381fe3fcb726c5044701 --- TODO (.../TODO) (revision 67591822465e64d9051583c9aa71f8d3a4ef5c96) +++ TODO (.../TODO) (revision 5dd22868ad67333b73cf381fe3fcb726c5044701) @@ -2884,10 +2884,11 @@ registration similar to mixin registrations - replaced dummy dupIntRepProc and updateStringProc in nsfObj.c by NULL +- fixed memory leak in "... info mixin classes -heritage" TODO: -- fix memory leak in info-method test + - in method-require.test # TODO: make me more pretty set ::nsf::unknown(nx) {::nx::Class __unknown} Index: generic/nsf.c =================================================================== diff -u -r67591822465e64d9051583c9aa71f8d3a4ef5c96 -r5dd22868ad67333b73cf381fe3fcb726c5044701 --- generic/nsf.c (.../nsf.c) (revision 67591822465e64d9051583c9aa71f8d3a4ef5c96) +++ generic/nsf.c (.../nsf.c) (revision 5dd22868ad67333b73cf381fe3fcb726c5044701) @@ -20235,6 +20235,9 @@ if (NsfClassListFind(clPtr->nextPtr, clPtr->cl)) continue; AppendMatchingElement(interp, resultObj, clPtr->cl->object.cmdName, patternString); } + + NsfClassListFree(checkList); + NsfClassListFree(mixinClasses); } else if (withClosure) { Tcl_HashTable objTable, *commandTable = &objTable;