diff options
| author | griffin <briang42@easystreet.net> | 2023-06-19 04:29:28 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-19 04:29:28 (GMT) |
| commit | d8ce1ffde8b833f9a255676b3a916df861c3d8da (patch) | |
| tree | bf8268bed8b51d0dd2ec24bd4934dfa829313478 /generic/tclCmdIL.c | |
| parent | 06465624ac4381066ed30bee475b9d28bb3193f2 (diff) | |
| parent | 7f8e25f90769fba6d16e9f232487a14e691a1a26 (diff) | |
| download | tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.zip tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.tar.gz tcl-d8ce1ffde8b833f9a255676b3a916df861c3d8da.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index b2f4502..1992516 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2961,7 +2961,8 @@ Tcl_LrepeatObjCmd( Tcl_Obj *const objv[]) /* The argument objects. */ { - Tcl_Size elementCount, i, totalElems; + Tcl_WideInt elementCount, i; + Tcl_Size totalElems; Tcl_Obj *listPtr, **dataArray = NULL; /* @@ -2973,12 +2974,12 @@ Tcl_LrepeatObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "count ?value ...?"); return TCL_ERROR; } - if (TCL_OK != TclGetSizeIntFromObj(interp, objv[1], &elementCount)) { + if (TCL_OK != TclGetWideIntFromObj(interp, objv[1], &elementCount)) { return TCL_ERROR; } if (elementCount < 0) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad count \"%" TCL_SIZE_MODIFIER "d\": must be integer >= 0", elementCount)); + "bad count \"%" TCL_LL_MODIFIER "d\": must be integer >= 0", elementCount)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LREPEAT", "NEGARG", NULL); return TCL_ERROR; @@ -3285,10 +3286,10 @@ Tcl_LsearchObjCmd( const char *bytes, *patternBytes; int match, result=TCL_OK, bisect; Tcl_Size i, length = 0, listc, elemLen, start, index; - Tcl_Size groupSize, groupOffset, lower, upper; + Tcl_Size groupOffset, lower, upper; int allocatedIndexVector = 0; int isIncreasing; - Tcl_WideInt patWide, objWide, wide; + Tcl_WideInt patWide, objWide, wide, groupSize; int allMatches, inlineReturn, negatedMatch, returnSubindices, noCase; double patDouble, objDouble; SortInfo sortInfo; @@ -4541,8 +4542,8 @@ Tcl_LsortObjCmd( int indices, nocase = 0, indexc; int sortMode = SORTMODE_ASCII; int group, allocatedIndexVector = 0; - Tcl_Size j, idx, groupSize, groupOffset, length; - Tcl_WideInt wide; + Tcl_Size j, idx, groupOffset, length; + Tcl_WideInt wide, groupSize; Tcl_Obj *resultPtr, *cmdPtr, **listObjPtrs, *listObj, *indexPtr; Tcl_Size i, elmArrSize; SortElement *elementArray = NULL, *elementPtr; |