diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-03 20:06:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-03 20:06:09 (GMT) |
| commit | a35dd1803660e9f68391c597e20b3c0f72e320ad (patch) | |
| tree | 5f6c5fe71c2e8c8aa511b015f78e19234d06d408 /generic/tclTimer.c | |
| parent | 79ac1a3b1956162a598c734c948ed6c9a75bd305 (diff) | |
| parent | 48891ff56a16c20d88b9643b9949a9915208188f (diff) | |
| download | tcl-a35dd1803660e9f68391c597e20b3c0f72e320ad.zip tcl-a35dd1803660e9f68391c597e20b3c0f72e320ad.tar.gz tcl-a35dd1803660e9f68391c597e20b3c0f72e320ad.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclTimer.c')
| -rw-r--r-- | generic/tclTimer.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index 15c87b5..ea80320 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -310,8 +310,8 @@ TclCreateAbsoluteTimerHandler( timerHandlerPtr->token = (Tcl_TimerToken) INT2PTR(tsdPtr->lastTimerId); /* - * Add the event to the queue in the correct position - * (ordered by event firing time). + * Add the event to the queue in the correct position (ordered by event + * firing time). */ for (tPtr2 = tsdPtr->firstTimerHandlerPtr, prevPtr = NULL; tPtr2 != NULL; @@ -1013,8 +1013,8 @@ AfterDelay( Tcl_GetTime(&now); endTime = now; - endTime.sec += (long)(ms/1000); - endTime.usec += ((int)(ms%1000))*1000; + endTime.sec += (long)(ms / 1000); + endTime.usec += ((int)(ms % 1000)) * 1000; if (endTime.usec >= 1000000) { endTime.sec++; endTime.usec -= 1000000; @@ -1042,17 +1042,17 @@ AfterDelay( if (diff > TCL_TIME_MAXIMUM_SLICE) { diff = TCL_TIME_MAXIMUM_SLICE; } - if (diff == 0 && TCL_TIME_BEFORE(now, endTime)) { - diff = 1; - } + if (diff == 0 && TCL_TIME_BEFORE(now, endTime)) { + diff = 1; + } if (diff > 0) { - Tcl_Sleep((int) diff); - if (diff < SLEEP_OFFLOAD_GETTIMEOFDAY) { - break; - } + Tcl_Sleep((long) diff); + if (diff < SLEEP_OFFLOAD_GETTIMEOFDAY) { + break; + } } else { - break; - } + break; + } } else { diff = TCL_TIME_DIFF_MS(iPtr->limit.time, now); if (diff > TCL_TIME_MAXIMUM_SLICE) { |