diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 11:17:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 11:17:23 (GMT) |
| commit | f0ea214c57459a16eaa686227c785defd8e00ea8 (patch) | |
| tree | 6efea9805da61373fd9b85dc007add36fb1959e9 /generic/tclCmdIL.c | |
| parent | 209b8d0bde085c41388ae13dbea251ba4dc81749 (diff) | |
| download | tcl-f0ea214c57459a16eaa686227c785defd8e00ea8.zip tcl-f0ea214c57459a16eaa686227c785defd8e00ea8.tar.gz tcl-f0ea214c57459a16eaa686227c785defd8e00ea8.tar.bz2 | |
Backport some test improvements from 9.0
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 8682c8b..f57a54a 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2839,7 +2839,7 @@ Tcl_LremoveObjCmd( Tcl_SetObjResult(interp, listObj); return TCL_OK; } - idxv = (Tcl_Size *)Tcl_Alloc((objc - 2) * sizeof(*idxv)); + idxv = (Tcl_Size *)ckalloc((objc - 2) * sizeof(*idxv)); for (i = 2; i < objc; i++) { status = (TclGetIntForIndexM(interp, objv[i], /*endValue*/ listLen - 1, &idxv[i - 2]) != TCL_OK); |