diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-05-25 08:50:37 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-05-25 08:50:37 (GMT) |
| commit | f02d8847b4db78ebcdf33676adf0cf74b84e0096 (patch) | |
| tree | f84e7b63a363eae47b283df8cd05e218145957f2 /generic/tclIO.c | |
| parent | c6028756760a19ed5e27ee0f2a79ef35599db579 (diff) | |
| download | tcl-f02d8847b4db78ebcdf33676adf0cf74b84e0096.zip tcl-f02d8847b4db78ebcdf33676adf0cf74b84e0096.tar.gz tcl-f02d8847b4db78ebcdf33676adf0cf74b84e0096.tar.bz2 | |
Factor out constant that must be the same in multiple places. Prompted by a
conversation with Alexandre Ferrieux.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 9e729c4..a76aba3 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -8419,8 +8419,8 @@ UpdateInterest( mask &= ~TCL_EXCEPTION; if (!statePtr->timer) { - statePtr->timer = Tcl_CreateTimerHandler(0, ChannelTimerProc, - chanPtr); + statePtr->timer = Tcl_CreateTimerHandler(SYNTHETIC_EVENT_TIME, + ChannelTimerProc, chanPtr); } } } @@ -8461,7 +8461,8 @@ ChannelTimerProc( * before UpdateInterest gets called by Tcl_NotifyChannel. */ - statePtr->timer = Tcl_CreateTimerHandler(0, ChannelTimerProc,chanPtr); + statePtr->timer = Tcl_CreateTimerHandler(SYNTHETIC_EVENT_TIME, + ChannelTimerProc,chanPtr); #ifdef TCL_IO_TRACK_OS_FOR_DRIVER_WITH_BAD_BLOCKING /* |