diff options
author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:30:30 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:30:30 (GMT) |
commit | 76c0ca9d7fe8df2d4a5b46ead77bd8bd3f9d05a5 (patch) | |
tree | 8b886db77c7b41c29a0936e51a2c9749b25df1f0 /generic/tclEvent.c | |
parent | beb9601daa56f0fa2d98122884b79d9bc59e8d1e (diff) | |
download | tcl-76c0ca9d7fe8df2d4a5b46ead77bd8bd3f9d05a5.zip tcl-76c0ca9d7fe8df2d4a5b46ead77bd8bd3f9d05a5.tar.gz tcl-76c0ca9d7fe8df2d4a5b46ead77bd8bd3f9d05a5.tar.bz2 |
code review, rewrite tclTimer, prolongation, etc.
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index b5e73ea..dcd7e6b 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1399,7 +1399,7 @@ Tcl_VwaitObjCmd( * we assume that option is not an integer, try to get numeric timeout */ if (!TclObjIsIndexOfTable(objv[optc], updateEventOptions) - && TclpGetUTimeFromObj(NULL, objv[optc], &usec) == TCL_OK) { + && TclpGetUTimeFromObj(NULL, objv[optc], &usec, 1000) == TCL_OK) { if (usec < 0) { usec = 0; }; optc--; } |