/* -----------------------------------------------------------------------------
- * $Id: Rts.h,v 1.11 2000/01/13 12:40:15 simonmar Exp $
+ * $Id: Rts.h,v 1.13 2000/04/05 14:26:31 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
#define MAX_RTS_ARGS 32
/* -----------------------------------------------------------------------------
- Useful typedefs
+ Assertions and Debuggery
-------------------------------------------------------------------------- */
-typedef unsigned int nat; /* at least 32 bits (like int) */
-typedef unsigned long lnat; /* at least 32 bits */
-typedef unsigned long long ullong; /* at least 32 bits */
-
-typedef enum {
- rtsFalse = 0,
- rtsTrue
-} rtsBool;
+#define IF_RTSFLAGS(c,s) if (RtsFlags.c) { s; }
/* -----------------------------------------------------------------------------
Assertions and Debuggery
#define stg_min(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _a : _b; })
#define stg_max(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _b : _a; })
-#endif RTS_H
+#endif /* RTS_H */