diff options
| author | davygrvy <davygrvy@pobox.com> | 2001-09-06 11:48:44 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2001-09-06 11:48:44 (GMT) |
| commit | 07dbe1df5f9a0c6ec0718cb86c0fbe59a701bc8a (patch) | |
| tree | bc46b6567409fc9b4fcb5c6b3e7e2d0a8bb37558 /win/tclWinTime.c | |
| parent | 8febce5bb71bac2d8e977c284f49e6f1551e2670 (diff) | |
| download | tcl-07dbe1df5f9a0c6ec0718cb86c0fbe59a701bc8a.zip tcl-07dbe1df5f9a0c6ec0718cb86c0fbe59a701bc8a.tar.gz tcl-07dbe1df5f9a0c6ec0718cb86c0fbe59a701bc8a.tar.bz2 | |
* win/tclWinTime.c: More Borland compatibility fixes.
[Patch: 436116]
Diffstat (limited to 'win/tclWinTime.c')
| -rw-r--r-- | win/tclWinTime.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/win/tclWinTime.c b/win/tclWinTime.c index 66bbe8a..d12afdf 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.7 2000/12/10 03:25:38 hobbs Exp $ + * RCS: @(#) $Id: tclWinTime.c,v 1.8 2001/09/06 11:48:44 davygrvy Exp $ */ #include "tclWinInt.h" @@ -307,13 +307,16 @@ TclpGetTime(timePtr) /* Current estimated time, expressed * as 100-ns ticks since the Windows epoch */ - static const LARGE_INTEGER posixEpoch = { 0xD53E8000, 0x019DB1DE }; + static LARGE_INTEGER posixEpoch; /* Posix epoch expressed as 100-ns ticks * since the windows epoch */ LONGLONG usecSincePosixEpoch; /* Current microseconds since Posix epoch */ + posixEpoch.LowPart = 0xD53E8000; + posixEpoch.HighPart = 0x019DB1DE; + EnterCriticalSection( &timeInfo.cs ); QueryPerformanceCounter( &curCounter ); |