[commit: ghc] master: Fix Windows build. (94c8dfa)

git at git.haskell.org git at git.haskell.org
Sun Oct 27 01:21:46 UTC 2013


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/94c8dfa2f43441c4074f5bcead6ee54f5fd63ffb/ghc

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

commit 94c8dfa2f43441c4074f5bcead6ee54f5fd63ffb
Author: Austin Seipp <austin at well-typed.com>
Date:   Sat Oct 26 20:13:55 2013 -0500

    Fix Windows build.
    
    GlobalMemoryStatusEx actually requires _WIN32_WINNT to be defined as
    0x0501 (Windows XP) for availability.
    
    For completeness, I bumped WIN32_WINNT in Ticker and OSThreads as well.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

94c8dfa2f43441c4074f5bcead6ee54f5fd63ffb
 rts/win32/OSMem.c     |    2 ++
 rts/win32/OSThreads.c |    2 +-
 rts/win32/Ticker.c    |    2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/rts/win32/OSMem.c b/rts/win32/OSMem.c
index f350076..082b8de 100644
--- a/rts/win32/OSMem.c
+++ b/rts/win32/OSMem.c
@@ -6,6 +6,8 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#define _WIN32_WINNT 0x0501
+
 #include "Rts.h"
 #include "sm/OSMem.h"
 #include "RtsUtils.h"
diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c
index d0d97b3..765cf89 100644
--- a/rts/win32/OSThreads.c
+++ b/rts/win32/OSThreads.c
@@ -7,7 +7,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-#define _WIN32_WINNT 0x0500
+#define _WIN32_WINNT 0x0501
 
 #include "Rts.h"
 #include <windows.h>
diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index d54fa46..89902e5 100644
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -2,7 +2,7 @@
  * RTS periodic timers.
  *
  */
-#define _WIN32_WINNT 0x0500
+#define _WIN32_WINNT 0x0501
 
 #include "Rts.h"
 #include "Ticker.h"



More information about the ghc-commits mailing list