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 | f0fa5ca1840e9254e5fbd8f4c8035ee614a93a2c (patch) | |
| tree | 6eac6d476db2ac0fc832c884ffac5b79a4446a74 | |
| parent | b5c993c141a1631a5c98fe0b7b85186263eefb00 (diff) | |
| download | tcl-f0fa5ca1840e9254e5fbd8f4c8035ee614a93a2c.zip tcl-f0fa5ca1840e9254e5fbd8f4c8035ee614a93a2c.tar.gz tcl-f0fa5ca1840e9254e5fbd8f4c8035ee614a93a2c.tar.bz2 | |
Oops, ckalloc -> Tcl_Alloc
| -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) { |