diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-28 10:52:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-28 10:52:40 (GMT) |
commit | bf64a365e9f1d014beba0694f2dce3718eb64036 (patch) | |
tree | f4a259f4ef1c3990b788ebef272f613b0f67d60c /generic | |
parent | b323b6696d5340e0202d6fc888c404cd232dceec (diff) | |
download | tcl-bf64a365e9f1d014beba0694f2dce3718eb64036.zip tcl-bf64a365e9f1d014beba0694f2dce3718eb64036.tar.gz tcl-bf64a365e9f1d014beba0694f2dce3718eb64036.tar.bz2 |
Use more size_t in tclTest.c, for testing the new wrapper functions
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5e6ca8c..7c820df 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -443,7 +443,8 @@ Tcltest_Init( Tcl_Interp *interp) /* Interpreter for application. */ { Tcl_Obj **objv, *objPtr; - int objc, index; + size_t objc; + int index; static const char *const specialOptions[] = { "-appinitprocerror", "-appinitprocdeleteinterp", "-appinitprocclosestderr", "-appinitprocsetrcfile", NULL @@ -6790,7 +6791,7 @@ SimpleMatchInDirectory( origPtr = SimpleRedirect(dirPtr); res = Tcl_FSMatchInDirectory(interp, resPtr, origPtr, pattern, types); if (res == TCL_OK) { - int gLength, j; + size_t gLength, j; Tcl_ListObjLength(NULL, resPtr, &gLength); for (j = 0; j < gLength; j++) { Tcl_Obj *gElt, *nElt; @@ -7353,7 +7354,8 @@ TestconcatobjCmd( TCL_UNUSED(const char **) /*argv*/) { Tcl_Obj *list1Ptr, *list2Ptr, *emptyPtr, *concatPtr, *tmpPtr; - int result = TCL_OK, len; + int result = TCL_OK; + size_t len; Tcl_Obj *objv[3]; /* |