X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FRtsTypes.h;h=e03ca1e9927c0b5a3d05b8f6ec9b8cf32963f52f;hb=4e5d22a241b6347c462cf7748e13effde0f02720;hp=90741afc84171d4bbab56d9b52b1fa62d1e66894;hpb=d91879fb1850238deafc9a2a212d85d4c865bc7c;p=ghc-hetmet.git

diff --git a/ghc/includes/RtsTypes.h b/ghc/includes/RtsTypes.h
index 90741af..e03ca1e 100644
--- a/ghc/includes/RtsTypes.h
+++ b/ghc/includes/RtsTypes.h
@@ -17,7 +17,13 @@ typedef unsigned long nat;           /* at least 32 bits (like int) */
 typedef unsigned int  nat;           /* at least 32 bits (like int) */
 #endif
 typedef unsigned long lnat;          /* at least 32 bits            */
+#ifndef _MSC_VER
 typedef unsigned long long ullong;   /* at least 32 bits            */
+typedef long long llong;
+#else
+typedef unsigned __int64   ullong;   /* at least 32 bits            */
+typedef __int64 llong;
+#endif
 
 /* ullong (64|128-bit) type: only include if needed (not ANSI) */
 #if defined(__GNUC__)