diff options
author | sebres <sebres@users.sourceforge.net> | 2017-07-13 15:41:57 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-07-13 15:41:57 (GMT) |
commit | d1e645da63404e176f053843c95d5e11b10511ed (patch) | |
tree | 94c15190db2950fb381dad808d86959d2f673cf2 /generic/tclTimer.c | |
parent | c8eac8481eea1bc6ffa187cf11ec580ed87fc874 (diff) | |
download | tcl-d1e645da63404e176f053843c95d5e11b10511ed.zip tcl-d1e645da63404e176f053843c95d5e11b10511ed.tar.gz tcl-d1e645da63404e176f053843c95d5e11b10511ed.tar.bz2 |
timer: fixed setup of the block-time to 0.0 by pending timer of new generation, example:
tclsh -c "proc test {} {after 1000 test}; test; vwait infinite"
Diffstat (limited to 'generic/tclTimer.c')
-rw-r--r-- | generic/tclTimer.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index d22d326..d4919f5 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -1208,7 +1208,6 @@ TclServiceTimerEvents(void) /* be sure that timer-list was not changed inside the proc call */ if (currentEpoch != tsdPtr->timerListEpoch) { /* timer-list was changed - stop processing */ - tsdPtr->timerPending++; break; } } |