diff options
| author | davygrvy@pobox.com <davygrvy> | 2001-09-06 11:48:44 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2001-09-06 11:48:44 (GMT) |
| commit | 60c344fae92e5bb239a5908e5ef4b577401ef3fb (patch) | |
| tree | bc46b6567409fc9b4fcb5c6b3e7e2d0a8bb37558 /win/tclWinTime.c | |
| parent | a2c3871ecf2f05d296d55f3a00adbfcac7c34e09 (diff) | |
| download | tcl-60c344fae92e5bb239a5908e5ef4b577401ef3fb.zip tcl-60c344fae92e5bb239a5908e5ef4b577401ef3fb.tar.gz tcl-60c344fae92e5bb239a5908e5ef4b577401ef3fb.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 ); |