Merge pull request #52 from RyanGlScott/master

Fix linking issues on 32-bit Windows
corsis · Jul 2, 2018 · ef60bd5 · ef60bd5
2 parents 00435dd + 8436f0e
commit ef60bd5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cbits/hs_clock_win32.c b/cbits/hs_clock_win32.c
@@ -28,6 +28,10 @@ static void to_timespec_from_100ns(ULONGLONG t_100ns, long long *t)
     t[1] = 100*(long)(t_100ns % 10000000UL);
 }
 
+/* See https://ghc.haskell.org/trac/ghc/ticket/15094 */
+#if defined(_WIN32) && !defined(_WIN64)
+__attribute__((optimize("-fno-expensive-optimizations")))
+#endif
 void hs_clock_win32_gettime_monotonic(long long* t)
 {
    LARGE_INTEGER time;