diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-09-06 20:35:27 (GMT) |
| commit | acf03d58760b6b427d032736a1ae61b0e9f1220a (patch) | |
| tree | a39d1803fadea4511e07f0995c0ed1ad7d0e0d95 /generic/tclClock.c | |
| parent | 4b135ba7bf313f34c5718a14263a24b80ee103c8 (diff) | |
| parent | 68037a7cc3e5b38365e10c6784fb856cbaf9008e (diff) | |
| download | tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.zip tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.tar.gz tcl-acf03d58760b6b427d032736a1ae61b0e9f1220a.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclClock.c')
| -rw-r--r-- | generic/tclClock.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index bef10c2..5d3caa1 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -1761,7 +1761,7 @@ ClockClicksObjCmd( switch (index) { case CLICKS_MILLIS: Tcl_GetTime(&now); - clicks = (Tcl_WideInt)(unsigned long)now.sec * 1000 + now.usec / 1000; + clicks = (Tcl_WideInt)(unsigned long long)now.sec * 1000 + now.usec / 1000; break; case CLICKS_NATIVE: #ifdef TCL_WIDE_CLICKS @@ -2039,7 +2039,7 @@ TzsetIfNecessary(void) { static WCHAR* tzWas = (WCHAR *)INT2PTR(-1); /* Previous value of TZ, protected by * clockMutex. */ - static long tzLastRefresh = 0; /* Used for latency before next refresh */ + static long long tzLastRefresh = 0; /* Used for latency before next refresh */ static size_t tzEnvEpoch = 0; /* Last env epoch, for faster signaling, that TZ changed via TCL */ const WCHAR *tzIsNow; /* Current value of TZ */ |