includes/rts/Types.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-2009
   4  *
   5  * RTS-specific types.
   6  *
   7  * Do not #include this file directly: #include "Rts.h" instead.
   8  *
   9  * To understand the structure of the RTS headers, see the wiki:
  10  *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
  11  *
  12  * ---------------------------------------------------------------------------*/
  13
  14 #ifndef RTS_TYPES_H
  15 #define RTS_TYPES_H
  16
  17 typedef unsigned int  nat;           /* at least 32 bits (like int) */
  18 typedef unsigned long lnat;          /* at least 32 bits            */
  19
  20 /* ullong (64|128-bit) type: only include if needed (not ANSI) */
  21 #if defined(__GNUC__)
  22 #define LL(x) (x##LL)
  23 #else
  24 #define LL(x) (x##L)
  25 #endif
  26
  27 typedef enum {
  28     rtsFalse = 0,
  29     rtsTrue
  30 } rtsBool;
  31
  32 typedef struct StgClosure_   StgClosure;
  33 typedef struct StgInfoTable_ StgInfoTable;
  34 typedef struct StgTSO_       StgTSO;
  35
  36 #endif /* RTS_TYPES_H */