diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-10 20:26:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-10 20:26:13 (GMT) |
| commit | 6a68e8975e1f99854cd0bc04d2470984521b6051 (patch) | |
| tree | 8d3bd79e6769b624d5fea4802d4850713017c432 /generic/tclTest.c | |
| parent | a6958b6f63652593894ae0304b3b4ef6f2d057c4 (diff) | |
| parent | 84be29734969e1c4a15df99cc315e4d192b3d9be (diff) | |
| download | tcl-6a68e8975e1f99854cd0bc04d2470984521b6051.zip tcl-6a68e8975e1f99854cd0bc04d2470984521b6051.tar.gz tcl-6a68e8975e1f99854cd0bc04d2470984521b6051.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5002e1f..b2632f0 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -522,7 +522,8 @@ Tcltest_Init( { Tcl_CmdInfo info; Tcl_Obj **objv, *objPtr; - int objc, index; + size_t objc; + int index; static const char *const specialOptions[] = { "-appinitprocerror", "-appinitprocdeleteinterp", "-appinitprocclosestderr", "-appinitprocsetrcfile", NULL @@ -4310,7 +4311,7 @@ TestsetplatformCmd( * A standard Tcl result. * * Side effects: - * When the packge given by argv[1] is loaded into an interpeter, + * When the packge given by argv[1] is loaded into an interpreter, * variable "x" in that interpreter is set to "loaded". * *---------------------------------------------------------------------- @@ -6886,7 +6887,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; @@ -7449,7 +7450,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]; /* @@ -7806,7 +7808,7 @@ TestparseargsCmd( Tcl_Obj *const objv[]) /* Arguments. */ { static int foo = 0; - int count = objc; + size_t count = objc; Tcl_Obj **remObjv, *result[3]; Tcl_ArgvInfo argTable[] = { {TCL_ARGV_CONSTANT, "-bool", INT2PTR(1), &foo, "booltest", NULL}, |