projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove ghc-pkg's dependency on haskell98
[ghc-hetmet.git]
/
includes
/
rts
/
Types.h
diff --git
a/includes/rts/Types.h
b/includes/rts/Types.h
index
6f399e0
..
18a3ce0
100644
(file)
--- a/
includes/rts/Types.h
+++ b/
includes/rts/Types.h
@@
-1,27
+1,21
@@
/* -----------------------------------------------------------------------------
*
/* -----------------------------------------------------------------------------
*
- * (c) The GHC Team, 1998-2008
+ * (c) The GHC Team, 1998-2009
*
* RTS-specific types.
*
*
* RTS-specific types.
*
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ * http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *
* ---------------------------------------------------------------------------*/
* ---------------------------------------------------------------------------*/
-/* -------------------------------------------------------------------------
- Generally useful typedefs
- ------------------------------------------------------------------------- */
-
#ifndef RTS_TYPES_H
#define RTS_TYPES_H
typedef unsigned int nat; /* at least 32 bits (like int) */
typedef unsigned long lnat; /* at least 32 bits */
#ifndef RTS_TYPES_H
#define RTS_TYPES_H
typedef unsigned int nat; /* at least 32 bits (like int) */
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__)
/* ullong (64|128-bit) type: only include if needed (not ANSI) */
#if defined(__GNUC__)