diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2006-09-26 00:05:02 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2006-09-26 00:05:02 (GMT) |
| commit | d421cc6148b8573ae4284cb05be84eb936f44623 (patch) | |
| tree | c0ac86f04e183856c29bf53794757d77eeea7dbc /generic/tclTimer.c | |
| parent | 9ca74c27f3f89bb08b044b9bea127f0aa23fa9d5 (diff) | |
| download | tcl-d421cc6148b8573ae4284cb05be84eb936f44623.zip tcl-d421cc6148b8573ae4284cb05be84eb936f44623.tar.gz tcl-d421cc6148b8573ae4284cb05be84eb936f44623.tar.bz2 | |
More fixing which struct stat to refer to. Some casts from time_t to int required.
Tcl_Time structure members are longs. Support for varying compiler options
and build to platform-specific subdirs.
Diffstat (limited to 'generic/tclTimer.c')
| -rw-r--r-- | generic/tclTimer.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index b867287..49e0e6e 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTimer.c,v 1.22 2005/12/13 22:43:18 kennykb Exp $ + * RCS: @(#) $Id: tclTimer.c,v 1.23 2006/09/26 00:05:03 patthoyts Exp $ */ #include "tclInt.h" @@ -860,8 +860,8 @@ Tcl_AfterObjCmd( afterPtr->id = tsdPtr->afterId; tsdPtr->afterId += 1; Tcl_GetTime(&wakeup); - wakeup.sec += (time_t)(ms / 1000); - wakeup.usec += ((int)(ms % 1000)) * 1000; + wakeup.sec += (long)(ms / 1000); + wakeup.usec += ((long)(ms % 1000)) * 1000; if (wakeup.usec > 1000000) { wakeup.sec++; wakeup.usec -= 1000000; @@ -1004,7 +1004,7 @@ AfterDelay( Tcl_WideInt diff; Tcl_GetTime(&endTime); - endTime.sec += (time_t)(ms/1000); + endTime.sec += (long)(ms/1000); endTime.usec += ((int)(ms%1000))*1000; if (endTime.usec >= 1000000) { endTime.sec++; |