diff options
author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:29:42 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:29:42 (GMT) |
commit | 62e00681cf398709d6a32eaa1ae0ccae3a5da9ef (patch) | |
tree | 4f7ad28b70f39e5c0b7d69c038442b825999ef55 /generic/tclInterp.c | |
parent | 913dc38311eb8c0ecbf81444db4d7d0a9276c4e5 (diff) | |
download | tcl-62e00681cf398709d6a32eaa1ae0ccae3a5da9ef.zip tcl-62e00681cf398709d6a32eaa1ae0ccae3a5da9ef.tar.gz tcl-62e00681cf398709d6a32eaa1ae0ccae3a5da9ef.tar.bz2 |
interim commit: trying to resolve time-freezes with new facilities timeJump/timeJumpEpoch
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r-- | generic/tclInterp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 5f1b958..b461f40 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3730,8 +3730,8 @@ Tcl_LimitSetTime( nextMoment.sec++; nextMoment.usec -= 1000000; } - iPtr->limit.timeEvent = TclCreateAbsoluteTimerHandlerEx(&nextMoment, - TimeLimitCallback, TimeLimitDeleteCallback, 0); + iPtr->limit.timeEvent = TclCreateTimerHandlerEx(&nextMoment, + TimeLimitCallback, TimeLimitDeleteCallback, 0, TCL_ABSTMR_EVENT); iPtr->limit.timeEvent->clientData = interp; iPtr->limit.exceeded &= ~TCL_LIMIT_TIME; } |