diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinNotify.c | 6 | ||||
| -rw-r--r-- | win/tclWinTest.c | 4 | ||||
| -rw-r--r-- | win/tclWinTime.c | 12 |
3 files changed, 11 insertions, 11 deletions
diff --git a/win/tclWinNotify.c b/win/tclWinNotify.c index eb33ed2..d788086 100644 --- a/win/tclWinNotify.c +++ b/win/tclWinNotify.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinNotify.c,v 1.8 2001/09/20 18:34:22 hobbs Exp $ + * RCS: @(#) $Id: tclWinNotify.c,v 1.9 2001/11/21 02:36:21 hobbs Exp $ */ #include "tclWinInt.h" @@ -521,7 +521,7 @@ Tcl_Sleep(ms) Tcl_Time desired; /* Desired wakeup time */ int sleepTime = ms; /* Time to sleep */ - TclpGetTime( &now ); + Tcl_GetTime( &now ); desired.sec = now.sec + ( ms / 1000 ); desired.usec = now.usec + 1000 * ( ms % 1000 ); if ( desired.usec > 1000000 ) { @@ -531,7 +531,7 @@ Tcl_Sleep(ms) for ( ; ; ) { Sleep( sleepTime ); - TclpGetTime( &now ); + Tcl_GetTime( &now ); if ( now.sec > desired.sec ) { break; } else if ( ( now.sec == desired.sec ) diff --git a/win/tclWinTest.c b/win/tclWinTest.c index 8d290a8..6a6825c 100644 --- a/win/tclWinTest.c +++ b/win/tclWinTest.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinTest.c,v 1.5 2000/11/21 21:33:43 andreas_kupries Exp $ + * RCS: @(#) $Id: tclWinTest.c,v 1.6 2001/11/21 02:36:21 hobbs Exp $ */ #include "tclWinInt.h" @@ -244,7 +244,7 @@ TestwinclockCmd( ClientData dummy, return TCL_ERROR; } - TclpGetTime( &tclTime ); + Tcl_GetTime( &tclTime ); GetSystemTimeAsFileTime( &sysTime ); t1.LowPart = posixEpoch.dwLowDateTime; t1.HighPart = posixEpoch.dwHighDateTime; diff --git a/win/tclWinTime.c b/win/tclWinTime.c index d12afdf..d90e8ba 100644 --- a/win/tclWinTime.c +++ b/win/tclWinTime.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: tclWinTime.c,v 1.8 2001/09/06 11:48:44 davygrvy Exp $ + * RCS: @(#) $Id: tclWinTime.c,v 1.9 2001/11/21 02:36:21 hobbs Exp $ */ #include "tclWinInt.h" @@ -131,7 +131,7 @@ unsigned long TclpGetSeconds() { Tcl_Time t; - TclpGetTime( &t ); + Tcl_GetTime( &t ); return t.sec; } @@ -159,14 +159,14 @@ unsigned long TclpGetClicks() { /* - * Use the TclpGetTime abstraction to get the time in microseconds, + * Use the Tcl_GetTime abstraction to get the time in microseconds, * as nearly as we can, and return it. */ Tcl_Time now; /* Current Tcl time */ unsigned long retval; /* Value to return */ - TclpGetTime( &now ); + Tcl_GetTime( &now ); retval = ( now.sec * 1000000 ) + now.usec; return retval; @@ -205,7 +205,7 @@ TclpGetTimeZone (currentTime) /* *---------------------------------------------------------------------- * - * TclpGetTime -- + * Tcl_GetTime -- * * Gets the current system time in seconds and microseconds * since the beginning of the epoch: 00:00 UCT, January 1, 1970. @@ -226,7 +226,7 @@ TclpGetTimeZone (currentTime) */ void -TclpGetTime(timePtr) +Tcl_GetTime(timePtr) Tcl_Time *timePtr; /* Location to store time information. */ { |