6 IMPORTANT! If you put extra tabs/spaces in these macro definitions,
7 you will screw up the layout where they are used in case expressions!
9 (This is cpp-dependent, of course)
13 #ifdef __GLASGOW_HASKELL__
14 #define GLOBAL_VAR(name,value,ty) \
15 name = Util.global (value) :: IORef (ty); \
22 #define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else
23 #define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else
24 #define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg))
27 #define ASSERT2(e,msg)
31 -- temporary usage assertion control KSW 2000-10
33 #define UASSERT(e) ASSERT(e)
34 #define UASSERT2(e,msg) ASSERT2(e,msg)
37 #define UASSERT2(e,msg)
40 -- This #ifndef lets us switch off the "import FastString"
41 -- when compiling FastString itself
42 #ifndef COMPILING_FAST_STRING
44 import qualified FastString
47 #define SLIT(x) (FastString.mkLitString# (x#))
48 #define FSLIT(x) (FastString.mkFastString# (x#))
50 #endif // HSVERSIONS_H