From: simonmar <unknown>
Date: Wed, 13 Jul 2005 13:08:05 +0000 (+0000)
Subject: [project @ 2005-07-13 13:08:05 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~353
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0506bea206cdc76f454b2659366b092089f6dbcd;p=ghc-hetmet.git

[project @ 2005-07-13 13:08:05 by simonmar]
#include <windows.h>
---

diff --git a/ghc/rts/RtsUtils.c b/ghc/rts/RtsUtils.c
index 23bd10e..a448c3e 100644
--- a/ghc/rts/RtsUtils.c
+++ b/ghc/rts/RtsUtils.c
@@ -54,6 +54,10 @@ typedef uintptr_t my_uintptr_t;
 #endif
 #endif
 
+#if defined(_WIN32)
+#include <windows.h>
+#endif
+
 /* -----------------------------------------------------------------------------
    Result-checking malloc wrappers.
    -------------------------------------------------------------------------- */