fix build failure on Windows
authorSimon Marlow <marlowsd@gmail.com>
Wed, 4 Nov 2009 16:27:40 +0000 (16:27 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 4 Nov 2009 16:27:40 +0000 (16:27 +0000)
rts/Linker.c

index 5b692a0..a7ceb66 100644 (file)
@@ -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)