diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:29:07 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:29:07 (GMT) |
| commit | f1d006af946ed800038bc2babde5d70ce347faab (patch) | |
| tree | cfb31f3c682e23931c8d6b446207a4a1b124d23d /generic | |
| parent | 418300bd6d16dcb6a02fad92ce471e69ce17fc7d (diff) | |
| download | tcl-f1d006af946ed800038bc2babde5d70ce347faab.zip tcl-f1d006af946ed800038bc2babde5d70ce347faab.tar.gz tcl-f1d006af946ed800038bc2babde5d70ce347faab.tar.bz2 | |
interim commit: try to fix time-drift backwards (calibration? something else?)...
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInt.h | 3 | ||||
| -rw-r--r-- | generic/tclTimer.c | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index fad78f2..7576a97 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4092,6 +4092,9 @@ TclInlLimitExceeded( { return (((Interp *)interp)->limit.exceeded != 0); } +#ifdef Tcl_LimitExceeded +# undef Tcl_LimitExceeded +#endif #define Tcl_LimitExceeded(interp) TclInlLimitExceeded(interp) #define TclLimitReady(limit) \ diff --git a/generic/tclTimer.c b/generic/tclTimer.c index d9e25de..a7fd50b 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -1427,7 +1427,7 @@ AfterDelay( || TCL_TIME_BEFORE(endTime, iPtr->limit.time)) { diff = TCL_TIME_DIFF_MS(endTime, now); if (TCL_TIME_DIFF_US(endTime, now) > 500 || TCL_TIME_DIFF_US(endTime, now) < -500) { - printf("!!!!!!!!!!!!!!!!!!!!!!!!!!!drift!!!! %5.3f, diff: %d -- %d.%06d - %d.%06d (%d usec)\n", ms, (int)diff, endTime.sec, endTime.usec, now.sec, now.usec, TCL_TIME_DIFF_US(endTime, now)); + //printf("!!!!!!!!!!!!!!!!!!!!!!!!!!!drift!!!! %5.3f, diff: %d -- %d.%06d - %d.%06d (%d usec)\n", ms, (int)diff, endTime.sec, endTime.usec, now.sec, now.usec, TCL_TIME_DIFF_US(endTime, now)); } #ifndef TCL_WIDE_INT_IS_LONG if (diff > LONG_MAX) { |