diff options
| author | davygrvy <davygrvy@noemail.net> | 2001-09-06 11:48:44 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@noemail.net> | 2001-09-06 11:48:44 (GMT) |
| commit | a87c6d6166a728e8e62e0fcd0a4474cf03a7a428 (patch) | |
| tree | bc46b6567409fc9b4fcb5c6b3e7e2d0a8bb37558 /win/tclWinTime.c | |
| parent | f2808ba232c1e479cb7d3a5af9efb5ca84006314 (diff) | |
| download | tcl-a87c6d6166a728e8e62e0fcd0a4474cf03a7a428.zip tcl-a87c6d6166a728e8e62e0fcd0a4474cf03a7a428.tar.gz tcl-a87c6d6166a728e8e62e0fcd0a4474cf03a7a428.tar.bz2 | |
* win/tclWinTime.c: More Borland compatibility fixes.
[Patch: 436116]
FossilOrigin-Name: be64ee41b5000c89e5373520b38650993a84734c
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 ); |