X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FRtsTypes.h;h=90741afc84171d4bbab56d9b52b1fa62d1e66894;hb=1ae4f09df15f92c8a069eec3fbd3403ccc44f4f0;hp=eab293d43dcb4a51a9489d9accd474a3cffcf8b5;hpb=20fc2f0ced64a12d8e44956931b2ac341ed2186f;p=ghc-hetmet.git

diff --git a/ghc/includes/RtsTypes.h b/ghc/includes/RtsTypes.h
index eab293d..90741af 100644
--- a/ghc/includes/RtsTypes.h
+++ b/ghc/includes/RtsTypes.h
@@ -11,7 +11,11 @@
 #ifndef RTS_TYPES_H
 #define RTS_TYPES_H
 
+#if SIZEOF_VOID_P == 8
+typedef unsigned long nat;           /* at least 32 bits (like int) */
+#else
 typedef unsigned int  nat;           /* at least 32 bits (like int) */
+#endif
 typedef unsigned long lnat;          /* at least 32 bits            */
 typedef unsigned long long ullong;   /* at least 32 bits            */