diff options
| author | sergey.brester <sergey.brester> | 2019-02-12 19:46:29 (GMT) |
|---|---|---|
| committer | sergey.brester <sergey.brester> | 2019-02-12 19:46:29 (GMT) |
| commit | e0587d15645be0b1c8a11d3b4ea82a23ecebf595 (patch) | |
| tree | fdd0c36739ff305661f4cfd9660746bb1bb60971 /generic/tclCmdMZ.c | |
| parent | 6a355b11a62eca55d96068c29b918339a100b467 (diff) | |
| download | tcl-e0587d15645be0b1c8a11d3b4ea82a23ecebf595.zip tcl-e0587d15645be0b1c8a11d3b4ea82a23ecebf595.tar.gz tcl-e0587d15645be0b1c8a11d3b4ea82a23ecebf595.tar.bz2 | |
fixes estimated time of too short execution considering calibrated overhead (it is 0us and not 1us, example: `timerate {break}` with and without calibration)
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 4ee43ea..cb44e08 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -4243,11 +4243,11 @@ usage: /* minimize influence of measurement overhead */ if (overhead > 0) { /* estimate the time of overhead (microsecs) */ - Tcl_WideInt curOverhead = overhead * count; + Tcl_WideUInt curOverhead = overhead * count; if (middle > curOverhead) { middle -= curOverhead; } else { - middle = 1; + middle = 0; } } } else { |