From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 4 Nov 2009 16:27:40 +0000 (+0000)
Subject: fix build failure on Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ef67b9729bc796b6e4fca24a1e7934e48e92840;p=ghc-hetmet.git

fix build failure on Windows
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 5b692a0..a7ceb66 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -976,13 +976,13 @@ typedef struct _RtsSymbolVal {
 
 #define RTS_GHC_CONC_SYMBOLS \
       SymI_NeedsProto(base_GHCziConc_pendingDelays_closure) \
-      SymI_NeedsProto(base_GHCziConc_pendingEvents_closure) \
       SymI_NeedsProto(base_GHCziConc_ioManagerThread_closure)
 
 #ifdef mingw32_HOST_OS
 #define RTS_GHC_CONC_OS_SYMBOLS /* empty */
 #else
 #define RTS_GHC_CONC_OS_SYMBOLS \
+      SymI_NeedsProto(base_GHCziConc_pendingEvents_closure) \
       SymI_NeedsProto(base_GHCziConc_prodding_closure) \
       SymI_NeedsProto(base_GHCziConc_sync_closure) \
       SymI_NeedsProto(base_GHCziConc_stick_closure)