Index: TODO =================================================================== diff -u -rc57d6c091dba61be4c11d8ed0511e8bda7b258da -r0946e13d87bd5400bf785f35f6691ecb538d5566 --- TODO (.../TODO) (revision c57d6c091dba61be4c11d8ed0511e8bda7b258da) +++ TODO (.../TODO) (revision 0946e13d87bd5400bf785f35f6691ecb538d5566) @@ -3116,16 +3116,17 @@ * added explicit INCR_REF_COUNTs on Tcl_Objs with 0-refCount to ease debugging * added explicit names for refcounting for "paramDefsObj" - + * added explicit names for refcounting for "freeList" (for forwaders) + TODO: - from parameters.test # TODO: currently, we need to converter (or a converter on nx::Slot), since # variable uses nsf::is and attribute uses the slot obj. method variable should # be changed to use the slotobj as well. - - dispsition.test: + - disposition.test: * remove/check exit (see comments in the file) * handle exit from eval/inticmd with proper refcounts Index: generic/nsf.c =================================================================== diff -u -rbeb24ae57d45d30735b06cfe6fa7e3a231ca6266 -r0946e13d87bd5400bf785f35f6691ecb538d5566 --- generic/nsf.c (.../nsf.c) (revision beb24ae57d45d30735b06cfe6fa7e3a231ca6266) +++ generic/nsf.c (.../nsf.c) (revision 0946e13d87bd5400bf785f35f6691ecb538d5566) @@ -14039,7 +14039,7 @@ add_to_freelist: if (!*freeList) { *freeList = Tcl_NewListObj(1, out); - INCR_REF_COUNT(*freeList); + INCR_REF_COUNT2("freeList", *freeList); } else { Tcl_ListObjAppendElement(interp, *freeList, *out); } @@ -14162,7 +14162,7 @@ return result; } else { - Tcl_Obj **ov, *freeList=NULL; + Tcl_Obj **ov, *freeList = NULL; int j, outputincr, outputArg = 0, firstPosArg=1, totalargs = objc + tcd->nr_args + 3; @@ -14307,7 +14307,7 @@ if (tcd->prefix) {DECR_REF_COUNT(ov[1]);} exitforwardmethod: - if (freeList) {DECR_REF_COUNT(freeList);} + if (freeList) {DECR_REF_COUNT2("freeList", freeList);} FREE_ON_STACK(int, objvmap); FREE_ON_STACK(Tcl_Obj*, OV);