diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-01-28 16:12:56 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-01-28 16:12:56 (GMT) |
| commit | 1dec12d61848ab939bde91eb6e3a095222cf4236 (patch) | |
| tree | 878cae3bedd87e407a264abc14bbd6dee768b20f | |
| parent | 523ea309ce99ee289cf8bea083fbc10f7d0f5320 (diff) | |
| download | tcl-1dec12d61848ab939bde91eb6e3a095222cf4236.zip tcl-1dec12d61848ab939bde91eb6e3a095222cf4236.tar.gz tcl-1dec12d61848ab939bde91eb6e3a095222cf4236.tar.bz2 | |
fixes [4ee9b4f3e965a7da5133]: result of command `time` overflows by single iteration longer as 35 minutes (uses wide-int instead of int as result now).
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index db4e57b..b1ba3ae 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -3931,7 +3931,7 @@ Tcl_TimeObjCmd( * Use int obj since we know time is not fractional. [Bug 1202178] */ - objs[0] = Tcl_NewIntObj((count <= 0) ? 0 : (int) totalMicroSec); + objs[0] = Tcl_NewWideIntObj((count <= 0) ? 0 : (Tcl_WideInt)totalMicroSec); } else { objs[0] = Tcl_NewDoubleObj(totalMicroSec/count); } |