diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-26 08:08:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-26 08:08:00 (GMT) |
commit | f85fed85ac41c7a67be6ef3472f1ee8b5ecaf5ec (patch) | |
tree | 557ef7a8333a1fe487f483c1e0c3e769af5f284c /generic | |
parent | 6432bddffaae57ea954d63c092f4b86343734913 (diff) | |
parent | c53412abcf8c4ce4eb65bde9e5c72d5d5611b5ad (diff) | |
download | tcl-f85fed85ac41c7a67be6ef3472f1ee8b5ecaf5ec.zip tcl-f85fed85ac41c7a67be6ef3472f1ee8b5ecaf5ec.tar.gz tcl-f85fed85ac41c7a67be6ef3472f1ee8b5ecaf5ec.tar.bz2 |
adjust for() loop controls to squelch sign-compare warning, move maxSizeDecade assignment to maintain identical functionality. Thanks, bch!
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclExecute.c | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index cc78f15..32d6458 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -9612,12 +9612,13 @@ EvalStatsCmd( break; } } - for (i = 31; i >= 0; i--) { + for (i = 31; i; i--) { if (statsPtr->srcCount[i] > 0) { - maxSizeDecade = i; - break; + break; /* maxSizeDecade to consume 'i' value + * below... */ } } + maxSizeDecade = i; sum = 0; for (i = minSizeDecade; i <= maxSizeDecade; i++) { decadeHigh = (1 << (i+1)) - 1; @@ -9635,12 +9636,13 @@ EvalStatsCmd( break; } } - for (i = 31; i >= 0; i--) { + for (i = 31; i; i--) { if (statsPtr->byteCodeCount[i] > 0) { - maxSizeDecade = i; - break; + break; /* maxSizeDecade to consume 'i' value + * below... */ } } + maxSizeDecade = i; sum = 0; for (i = minSizeDecade; i <= maxSizeDecade; i++) { decadeHigh = (1 << (i+1)) - 1; @@ -9658,12 +9660,13 @@ EvalStatsCmd( break; } } - for (i = 31; i >= 0; i--) { + for (i = 31; i; i--) { if (statsPtr->lifetimeCount[i] > 0) { - maxSizeDecade = i; - break; + break; /* maxSizeDecade to consume 'i' value + * below... */ } } + maxSizeDecade = i; sum = 0; for (i = minSizeDecade; i <= maxSizeDecade; i++) { decadeHigh = (1 << (i+1)) - 1; |