From 07dbe1df5f9a0c6ec0718cb86c0fbe59a701bc8a Mon Sep 17 00:00:00 2001 From: davygrvy Date: Thu, 6 Sep 2001 11:48:44 +0000 Subject: * win/tclWinTime.c: More Borland compatibility fixes. [Patch: 436116] --- win/tclWinTime.c | 7 +++++-- 1 file 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 ); -- cgit v0.12