diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 11:38:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-08 11:38:58 (GMT) |
| commit | 9c52d351f19a451f9d7fff451624b195959a558d (patch) | |
| tree | 243ef012d5f26c9731c3513281ab849864ffbe81 /generic/tclOptimize.c | |
| parent | 559954ccb37cf5d1bde6ed4bb37cde477b76a154 (diff) | |
| download | tcl-9c52d351f19a451f9d7fff451624b195959a558d.zip tcl-9c52d351f19a451f9d7fff451624b195959a558d.tar.gz tcl-9c52d351f19a451f9d7fff451624b195959a558d.tar.bz2 | |
More size_t
Diffstat (limited to 'generic/tclOptimize.c')
| -rw-r--r-- | generic/tclOptimize.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclOptimize.c b/generic/tclOptimize.c index 1ef5ae7..094638e 100644 --- a/generic/tclOptimize.c +++ b/generic/tclOptimize.c @@ -54,7 +54,8 @@ LocateTargetAddresses( Tcl_HashTable *tablePtr) { unsigned char *currentInstPtr, *targetInstPtr; - int isNew, i; + int isNew; + size_t i; Tcl_HashEntry *hPtr; Tcl_HashSearch hSearch; @@ -124,7 +125,7 @@ LocateTargetAddresses( * Enter in the targets of exception ranges. */ - for (i=0 ; i<envPtr->exceptArrayNext ; i++) { + for (i=0 ; i<(size_t)envPtr->exceptArrayNext ; i++) { ExceptionRange *rangePtr = &envPtr->exceptArrayPtr[i]; if (rangePtr->type == CATCH_EXCEPTION_RANGE) { |