HsVersions.h 2.33 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
#ifndef HSVERSIONS_H
#define HSVERSIONS_H

#if 0

IMPORTANT!  If you put extra tabs/spaces in these macro definitions,
you will screw up the layout where they are used in case expressions!

(This is cpp-dependent, of course)

#endif

13 14 15 16
#if __GLASGOW_HASKELL__ >= 504

#define CONCURRENT  Control.Concurrent
#define EXCEPTION   Control.Exception
17 18
     /* If you want Control.Exception.try, get it as Panic.try, which
        deals with the shift from 'tryAllIO' to 'try'.  */
19 20 21 22 23 24 25 26 27
#define DYNAMIC     Data.Dynamic
#define GLAEXTS     GHC.Exts
#define DATA_BITS   Data.Bits
#define DATA_INT    Data.Int
#define DATA_WORD   Data.Word
#define UNSAFE_IO   System.IO.Unsafe
#define TRACE       Debug.Trace
#define DATA_IOREF  Data.IORef
#define FIX_IO      System.IO
28 29
#define MONAD_ST    Control.Monad.ST
#define ST_ARRAY    Data.Array.ST
30 31 32 33 34 35 36 37 38 39 40 41 42 43

#else

#define CONCURRENT  Concurrent
#define EXCEPTION   Exception
#define DYNAMIC     Dynamic
#define GLAEXTS     GlaExts
#define DATA_BITS   Bits
#define DATA_INT    Int
#define DATA_WORD   Word
#define UNSAFE_IO   IOExts
#define TRACE       IOExts
#define DATA_IOREF  IOExts
#define FIX_IO      IOExts
44 45
#define MONAD_ST    ST
#define ST_ARRAY    ST
46 47 48

#endif

49 50
#ifdef __GLASGOW_HASKELL__
#define GLOBAL_VAR(name,value,ty)  \
51
name = Util.global (value) :: IORef (ty); \
52 53 54
{-# NOINLINE name #-}
#endif

55 56 57 58 59 60
#if __GLASGOW_HASKELL__ >= 620
#define UNBOX_FIELD !!
#else
#define UNBOX_FIELD !
#endif

61 62 63 64
#define COMMA ,

#ifdef DEBUG
#define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else
sof's avatar
sof committed
65
#define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else
66
#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg))
67
#define ASSERTM(e) ASSERT(e) do
68
#else
69 70
#define ASSERT(e)      if False then error "ASSERT"  else
#define ASSERT2(e,msg) if False then error "ASSERT2" else
71
#define ASSERTM(e)
72
#define WARN(e,msg)    if False then error "WARN"    else
73
#endif
74

75 76 77 78 79 80 81 82 83
-- temporary usage assertion control KSW 2000-10
#ifdef DO_USAGES
#define UASSERT(e) ASSERT(e)
#define UASSERT2(e,msg) ASSERT2(e,msg)
#else
#define UASSERT(e)
#define UASSERT2(e,msg)
#endif

84 85 86 87
-- This #ifndef lets us switch off the "import FastString"
-- when compiling FastString itself
#ifndef COMPILING_FAST_STRING
-- 
88
import qualified FastString 
89 90
#endif

91 92
#define SLIT(x)	 (FastString.mkLitString# (x#))
#define FSLIT(x) (FastString.mkFastString# (x#))
93

94 95
#endif /* HsVersions.h */