diff options
| author | Kavon Farvardin <kavon@farvard.in> | 2018-09-23 15:29:37 -0500 |
|---|---|---|
| committer | Kavon Farvardin <kavon@farvard.in> | 2018-09-23 15:29:37 -0500 |
| commit | 84c2ad99582391005b5e873198b15e9e9eb4f78d (patch) | |
| tree | caa8c2f2ec7e97fbb4977263c6817c9af5025cf4 /rts/win32/GetTime.c | |
| parent | 8ddb47cfcf5776e9a3c55fd37947c8a95e00fa12 (diff) | |
| parent | e68b439fe5de61b9a2ca51af472185c62ccb8b46 (diff) | |
| download | haskell-wip/T13904.tar.gz | |
update to current master againwip/T13904
Diffstat (limited to 'rts/win32/GetTime.c')
| -rw-r--r-- | rts/win32/GetTime.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/win32/GetTime.c b/rts/win32/GetTime.c index 90c0d0d244..014a676e99 100644 --- a/rts/win32/GetTime.c +++ b/rts/win32/GetTime.c @@ -84,6 +84,11 @@ getMonotonicNSec() } else // fallback to GetTickCount { + // TODO: Remove this code path, it cannot be taken because + // `QueryPerformanceFrequency` cannot fail on Windows >= XP + // and GHC no longer supports Windows <= XP. + // See https://ghc.haskell.org/trac/ghc/ticket/14233 + // NOTE: GetTickCount is a 32-bit millisecond value, so it wraps around // every 49 days. DWORD count = GetTickCount(); |