28 lines
895 B
Diff
28 lines
895 B
Diff
From b985529f9905b326d7da711ffbe28d80418c7ef8 Mon Sep 17 00:00:00 2001
|
|
From: sebres <sebres@users.sourceforge.net>
|
|
Date: Mon, 28 Jan 2019 16:12:56 +0000
|
|
Subject: [PATCH 1693/1800] fixes [4ee9b4f3e965a7da5133]: result of command
|
|
`time` overflows by single iteration longer as 35 minutes (uses wide-int
|
|
instead of int as result now).
|
|
|
|
---
|
|
generic/tclCmdMZ.c | 2 +-
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
|
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
|
|
index db4e57b1e..b1ba3ae01 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);
|
|
}
|
|
--
|
|
2.19.1
|
|
|