From: ken <unknown>
Date: Tue, 24 Jul 2001 05:08:51 +0000 (+0000)
Subject: [project @ 2001-07-24 05:08:51 by ken]
X-Git-Tag: Approximately_9120_patches~1444
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d91879fb1850238deafc9a2a212d85d4c865bc7c;p=ghc-hetmet.git

[project @ 2001-07-24 05:08:51 by ken]
Made "nat" 64-bit ("unsigned long") rather than 32-bit ("unsigned int")
on 64-bit machines.  This fixes some problems caused by code elsewhere
assuming that sizeof(nat) == sizeof(void *).
---

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            */