diff options
-rw-r--r-- | generic/tkBind.c | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/generic/tkBind.c b/generic/tkBind.c index e4e2b99..7873d29 100644 --- a/generic/tkBind.c +++ b/generic/tkBind.c @@ -792,22 +792,10 @@ GetButtonNumber( static Time CurrentTimeInMilliSecs(void) { - union { - Tcl_Time now; - struct { - Tcl_WideInt sec; /* reserve stack space enough for 64-bit fields */ - Tcl_WideInt usec; - } lnow; - } t; - t.lnow.usec = -1; /* Invalid usec value, so we can see if Tcl_GetTime overwrites it */ - Tcl_GetTime(&t.now); -#ifdef _WIN64 - if (t.lnow.usec != -1) { - /* Win64 Tk loaded in Cygwin-64: Tcl_GetTime() returns 64-bit fields */ - return ((Time) t.lnow.sec)*1000 + ((Time) t.lnow.usec)/1000; - } -#endif - return ((Time) t.now.sec)*1000 + ((Time) t.now.usec)/1000; + Tcl_Time now; + + Tcl_GetTime(&now); + return ((Time) now.sec)*1000 + ((Time) now.usec)/1000; } static Info |