From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 16 May 2007 11:23:40 +0000 (+0000)
Subject: later mingw runtimes have gettimeofday, it seems
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6099982b0968a636eeccbafccb9a3593f8841449

later mingw runtimes have gettimeofday, it seems
---

diff --git a/rts/Linker.c b/rts/Linker.c
index e489bed..65305f3 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -256,6 +256,12 @@ typedef struct _RtsSymbolVal {
 #define RTS_MINGW_EXTRA_SYMS
 #endif
 
+#if HAVE_GETTIMEOFDAY
+#define RTS_MINGW_GETTIMEOFDAY_SYM Sym(gettimeofday)
+#else
+#define RTS_MINGW_GETTIMEOFDAY_SYM /**/
+#endif
+
 /* These are statically linked from the mingw libraries into the ghc
    executable, so we have to employ this hack. */
 #define RTS_MINGW_ONLY_SYMBOLS                  \
@@ -339,6 +345,7 @@ typedef struct _RtsSymbolVal {
       Sym(readdir)                              \
       Sym(rewinddir)                            \
       RTS_MINGW_EXTRA_SYMS                      \
+      RTS_MINGW_GETTIMEOFDAY_SYM		\
       Sym(closedir)
 #endif