diff options
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index e31d708..891f07a 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2399,14 +2399,14 @@ DictForNRCmd( "must have exactly two variable names", -1)); return TCL_ERROR; } - searchPtr = TclStackAlloc(interp, sizeof(Tcl_DictSearch)); + searchPtr = ckalloc(sizeof(Tcl_DictSearch)); if (Tcl_DictObjFirst(interp, objv[2], searchPtr, &keyObj, &valueObj, &done) != TCL_OK) { - TclStackFree(interp, searchPtr); + ckfree(searchPtr); return TCL_ERROR; } if (done) { - TclStackFree(interp, searchPtr); + ckfree(searchPtr); return TCL_OK; } TclListObjGetElements(NULL, objv[1], &varc, &varv); @@ -2456,7 +2456,7 @@ DictForNRCmd( TclDecrRefCount(valueVarObj); TclDecrRefCount(scriptObj); Tcl_DictObjDone(searchPtr); - TclStackFree(interp, searchPtr); + ckfree(searchPtr); return TCL_ERROR; } @@ -2538,7 +2538,7 @@ DictForLoopCallback( TclDecrRefCount(valueVarObj); TclDecrRefCount(scriptObj); Tcl_DictObjDone(searchPtr); - TclStackFree(interp, searchPtr); + ckfree(searchPtr); return result; } @@ -2590,10 +2590,10 @@ DictMapNRCmd( "must have exactly two variable names", -1)); return TCL_ERROR; } - storagePtr = TclStackAlloc(interp, sizeof(DictMapStorage)); + storagePtr = ckalloc(sizeof(DictMapStorage)); if (Tcl_DictObjFirst(interp, objv[2], &storagePtr->search, &keyObj, &valueObj, &done) != TCL_OK) { - TclStackFree(interp, storagePtr); + ckfree(storagePtr); return TCL_ERROR; } if (done) { @@ -2603,7 +2603,7 @@ DictMapNRCmd( * an empty dictionary. */ - TclStackFree(interp, storagePtr); + ckfree(storagePtr); return TCL_OK; } TclNewObj(storagePtr->accumulatorObj); @@ -2659,7 +2659,7 @@ DictMapNRCmd( TclDecrRefCount(storagePtr->scriptObj); TclDecrRefCount(storagePtr->accumulatorObj); Tcl_DictObjDone(&storagePtr->search); - TclStackFree(interp, storagePtr); + ckfree(storagePtr); return TCL_ERROR; } @@ -2749,7 +2749,7 @@ DictMapLoopCallback( TclDecrRefCount(storagePtr->scriptObj); TclDecrRefCount(storagePtr->accumulatorObj); Tcl_DictObjDone(&storagePtr->search); - TclStackFree(interp, storagePtr); + ckfree(storagePtr); return result; } |