diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-20 16:44:49 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-20 16:44:49 (GMT) |
| commit | c091b78af60d2f2f46c162bed19465380cf8d4bf (patch) | |
| tree | 3ab02f5cab50084747b4510be3b04817076d5b37 /generic/tclCmdIL.c | |
| parent | e359627a3620dd5d90bb533fd3aef15586b1d8af (diff) | |
| download | tcl-c091b78af60d2f2f46c162bed19465380cf8d4bf.zip tcl-c091b78af60d2f2f46c162bed19465380cf8d4bf.tar.gz tcl-c091b78af60d2f2f46c162bed19465380cf8d4bf.tar.bz2 | |
Bugs [4ce858a049] (lrepeat), [f4d15772f1] (foreach), [6926a21840] (lmap).
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index f7ec027..c5a6616 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2923,7 +2923,7 @@ Tcl_LrepeatObjCmd( Tcl_Obj *const objv[]) /* The argument objects. */ { - int elementCount, i, totalElems; + Tcl_Size elementCount, i, totalElems; Tcl_Obj *listPtr, **dataArray = NULL; /* @@ -2935,7 +2935,7 @@ Tcl_LrepeatObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "count ?value ...?"); return TCL_ERROR; } - if (TCL_OK != TclGetIntFromObj(interp, objv[1], &elementCount)) { + if (TCL_OK != TclGetSizeIntFromObj(interp, objv[1], &elementCount)) { return TCL_ERROR; } if (elementCount < 0) { @@ -2997,7 +2997,7 @@ Tcl_LrepeatObjCmd( dataArray[i] = tmpPtr; } } else { - int j, k = 0; + Tcl_Size j, k = 0; for (i=0 ; i<elementCount ; i++) { for (j=0 ; j<objc ; j++) { |