diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-01 20:07:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-01 20:07:23 (GMT) |
commit | bfa6e2e15d74c53e8417e4df6cc05cc9feb03521 (patch) | |
tree | 6eac6d476db2ac0fc832c884ffac5b79a4446a74 /generic/tclStrIdxTree.c | |
parent | 8912060cdcf0a95cb82a6e7e62fd43cb49cbee84 (diff) | |
download | tcl-bfa6e2e15d74c53e8417e4df6cc05cc9feb03521.zip tcl-bfa6e2e15d74c53e8417e4df6cc05cc9feb03521.tar.gz tcl-bfa6e2e15d74c53e8417e4df6cc05cc9feb03521.tar.bz2 |
Oops, ckalloc -> Tcl_Alloc
Diffstat (limited to 'generic/tclStrIdxTree.c')
-rw-r--r-- | generic/tclStrIdxTree.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclStrIdxTree.c b/generic/tclStrIdxTree.c index f764d02..5410b55 100644 --- a/generic/tclStrIdxTree.c +++ b/generic/tclStrIdxTree.c @@ -156,7 +156,7 @@ TclStrIdxTreeFree( TclStrIdxTreeFree(tree->childTree.firstPtr); } t = tree, tree = tree->nextPtr; - ckfree(t); + Tcl_Free(t); } } @@ -239,7 +239,7 @@ TclStrIdxTreeBuildFromList( /* create lowercase reflection of the list keys */ - lwrv = (Tcl_Obj **)ckalloc(sizeof(Tcl_Obj*) * lstc); + lwrv = (Tcl_Obj **)Tcl_Alloc(sizeof(Tcl_Obj*) * lstc); if (lwrv == NULL) { return TCL_ERROR; } @@ -288,7 +288,7 @@ TclStrIdxTreeBuildFromList( * but don't split by fulfilled child of found item ( ii->iii->iiii ) */ if (foundItem->length != (f - s)) { /* first split found item (insert one between parent and found + new one) */ - item = (TclStrIdx *)ckalloc(sizeof(TclStrIdx)); + item = (TclStrIdx *)Tcl_Alloc(sizeof(TclStrIdx)); if (item == NULL) { goto done; } @@ -306,7 +306,7 @@ TclStrIdxTreeBuildFromList( } } /* append item at end of found parent */ - item = (TclStrIdx *)ckalloc(sizeof(TclStrIdx)); + item = (TclStrIdx *)Tcl_Alloc(sizeof(TclStrIdx)); if (item == NULL) { goto done; } @@ -325,7 +325,7 @@ done: for (i = 0; i < lstc; i++) { Tcl_DecrRefCount(lwrv[i]); } - ckfree(lwrv); + Tcl_Free(lwrv); } if (ret != TCL_OK) { |