[commit: ghc] master: Fix Windows build (wibble to fix for Trac #4934) (7f467d0)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7f467d0fbb1424f638a0d39caf57b9c0198421a8/ghc

>---------------------------------------------------------------

commit 7f467d0fbb1424f638a0d39caf57b9c0198421a8
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jun 11 20:54:58 2014 +0100

    Fix Windows build (wibble to fix for Trac #4934)


>---------------------------------------------------------------

7f467d0fbb1424f638a0d39caf57b9c0198421a8
 rts/RtsStartup.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index c9f5880..8e7e11d 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -209,12 +209,12 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
     getStablePtr((StgPtr)nonTermination_closure);
     getStablePtr((StgPtr)blockedIndefinitelyOnSTM_closure);
     getStablePtr((StgPtr)nestedAtomically_closure);
-    getStablePtr((StgPtr)blockedOnBadFD_closure);
 
     getStablePtr((StgPtr)runSparks_closure);
     getStablePtr((StgPtr)ensureIOManagerIsRunning_closure);
     getStablePtr((StgPtr)ioManagerCapabilitiesChanged_closure);
 #ifndef mingw32_HOST_OS
+    getStablePtr((StgPtr)blockedOnBadFD_closure);
     getStablePtr((StgPtr)runHandlers_closure);
 #endif