#endif
-#define COMMA ,
+/* Useful in the headers that we share with the RTS */
+#define COMPILING_GHC 1
+
+/* Pull in all the platform defines for this build (foo_TARGET_ARCH etc.) */
+#include "ghc_boot_platform.h"
+
+/* Pull in the autoconf defines (HAVE_FOO), but don't include
+ * ghcconfig.h, because that will include ghcplatform.h which has the
+ * wrong platform settings for the compiler (it has the platform
+ * settings for the target plat instead). */
+#include "../includes/ghcautoconf.h"
+
+#if __GLASGOW_HASKELL__ >= 504
+
+#define CONCURRENT Control.Concurrent
+#define EXCEPTION Control.Exception
+ /* If you want Control.Exception.try, get it as Panic.try, which
+ deals with the shift from 'tryAllIO' to 'try'. */
+#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
+#define MONAD_ST Control.Monad.ST
+#define ST_ARRAY Data.Array.ST
-#ifdef DEBUG
-#define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else
-#define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else
#else
-#define ASSERT(e)
-#define ASSERT2(e,msg)
-#endif
-#if __STDC__
-#define CAT2(a,b)a##b
-#else
-#define CAT2(a,b)a/**/b
-#endif
+#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
+#define MONAD_ST ST
+#define ST_ARRAY ST
-#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ == 201
-# define REALLY_HASKELL_1_3
-# define SYN_IE(a) a
-# define EXP_MODULE(a) module a
-# define IMPORT_DELOOPER(mod) import mod
-# define IMPORT_1_3(mod) import mod
-# define _tagCmp compare
-# define _LT LT
-# define _EQ EQ
-# define _GT GT
-# define _Addr GHCbase.Addr
-# define _ByteArray GHCbase.ByteArray
-# define _MutableByteArray GHCbase.MutableByteArray
-# define _MutableArray GHCbase.MutableArray
-# define _RealWorld GHCbase.RealWorld
-# define _ST GHCbase.ST
-# define _ForeignObj GHCbase.ForeignObj
-# define _runST STbase.runST
-# define failWith fail
-# define MkST ST
-# define STATE_TOK(x) (S# x)
-# define ST_RET(x,y) (x,y)
-# define unsafePerformST(x) unsafePerformPrimIO (x)
-# define ST_TO_PrimIO(x) x
-# define MkIOError(h,errt,msg) (errt msg)
-# define Text Show
-# define IMP_FASTSTRING()
-# define IMP_Ubiq() IMPORT_DELOOPER(Ubiq); import qualified GHCbase
-# define CHK_Ubiq() IMPORT_DELOOPER(Ubiq); import qualified GHCbase
-# define minInt (minBound::Int)
-# define maxInt (maxBound::Int)
-#elif defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 202
-# define REALLY_HASKELL_1_3
-# define SYN_IE(a) a
-# define EXP_MODULE(a) module a
-# define IMPORT_DELOOPER(mod) import mod
-# define IMPORT_1_3(mod) import mod
-# define _CMP_TAG Ordering
-# define _tagCmp compare
-# define _LT LT
-# define _EQ EQ
-# define _GT GT
-# define _Addr GlaExts.Addr
-# define _ByteArray GlaExts.ByteArray
-# define _MutableByteArray GlaExts.MutableByteArray
-# define _MutableArray GlaExts.MutableArray
-# define _RealWorld GlaExts.RealWorld
-# define _ST GlaExts.ST
-# define _ForeignObj Foreign.ForeignObj
-# define _runST ST.runST
-# define seqStrictlyST seqST
-# define thenStrictlyST thenST
-# define returnStrictlyST return
-# define _readHandle IOHandle.readHandle
-# define _writeHandle IOHandle.writeHandle
-# define _newHandle IOHandle.newdHandle
-# define MkST ST
-# if __GLASGOW_HASKELL__ >= 209
-# define STATE_TOK(x) x
-# define ST_RET(x,y) STret (y) (x)
-# define unsafePerformST(x) runST (x)
-# define ST_TO_PrimIO(x) (stToIO (x))
-# else
-# define STATE_TOK(x) (S# x)
-# define ST_RET(x,y) (x,y)
-# define unsafePerformST(x) unsafePerformPrimIO(x)
-# define ST_TO_PrimIO(x) x
-# endif
-# define failWith fail
-# define MkIOError(h,errt,msg) (IOError (Just h) errt msg)
-# define CCALL_THEN thenIO_Prim
-# define _filePtr IOHandle.filePtr
-# define Text Show
-# define IMP_FASTSTRING() import FastString
-# if __GLASGOW_HASKELL__ >= 209
-# define IMP_Ubiq() import GlaExts ; import Addr(Addr(..)); import FastString
-# define CHK_Ubiq() import GlaExts ; import Addr(Addr(..)); import FastString
-# else
-# define IMP_Ubiq() import GlaExts ; import FastString
-# define CHK_Ubiq() import GlaExts ; import FastString
-# endif
-# define minInt (minBound::Int)
-# define maxInt (maxBound::Int)
-#else
-# define SYN_IE(a) a(..)
-# define EXP_MODULE(a) a..
-# define IMPORT_DELOOPER(mod) import mod
-# define IMPORT_1_3(mod) {--}
-# define IMP_FASTSTRING() import FastString
-# define IMP_Ubiq() IMPORT_DELOOPER(Ubiq) ; import FastString
-# define CHK_Ubiq() IMPORT_DELOOPER(Ubiq) ; import FastString
-# define MkST
-# define CCALL_THEN thenPrimIO
-# define MkIOError(h,errt,msg) (errt msg)
#endif
-#if __GLASGOW_HASKELL__ >= 26 && __GLASGOW_HASKELL__ < 200
-#define trace _trace
+#ifdef __GLASGOW_HASKELL__
+#define GLOBAL_VAR(name,value,ty) \
+name = Util.global (value) :: IORef (ty); \
+{-# NOINLINE name #-}
#endif
-#define TAG_ Int#
-#define LT_ -1#
-#define EQ_ 0#
-#define GT_ 1#
-#define GT__ _
-
-#if defined(__GLASGOW_HASKELL__)
-#define FAST_INT Int#
-#define ILIT(x) (x#)
-#define IBOX(x) (I# (x))
-#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
-#define _ADD_ `plusInt#`
-#define _SUB_ `minusInt#`
-#define _MUL_ `timesInt#`
-#define _DIV_ `divInt#`
-#define _QUOT_ `quotInt#`
-#define _NEG_ negateInt#
-#define _EQ_ `eqInt#`
-#define _LT_ `ltInt#`
-#define _LE_ `leInt#`
-#define _GE_ `geInt#`
-#define _GT_ `gtInt#`
+#if __GLASGOW_HASKELL__ >= 620
+#define UNBOX_FIELD !!
#else
-#define _ADD_ +#
-#define _SUB_ -#
-#define _MUL_ *#
-#define _DIV_ /#
-#define _QUOT_ `quotInt#`
-#define _NEG_ negateInt#
-#define _EQ_ ==#
-#define _LT_ <#
-#define _LE_ <=#
-#define _GE_ >=#
-#define _GT_ >#
+#define UNBOX_FIELD !
#endif
-#define FAST_BOOL Int#
-#define _TRUE_ 1#
-#define _FALSE_ 0#
-#define _IS_TRUE_(x) ((x) _EQ_ 1#)
-
-#else {- ! __GLASGOW_HASKELL__ -}
-
-#define FAST_INT Int
-#define ILIT(x) (x)
-#define IBOX(x) (x)
-#define _ADD_ +
-#define _SUB_ -
-#define _MUL_ *
-#define _DIV_ `div`
-#define _QUOT_ `quot`
-#define _NEG_ -
-#define _EQ_ ==
-#define _LT_ <
-#define _LE_ <=
-#define _GE_ >=
-#define _GT_ >
-
-#define FAST_BOOL Bool
-#define _TRUE_ True
-#define _FALSE_ False
-#define _IS_TRUE_(x) (x)
-
-#endif {- ! __GLASGOW_HASKELL__ -}
-
-#if __GLASGOW_HASKELL__ >= 23
-# define USE_FAST_STRINGS 1
-# if __GLASGOW_HASKELL__ < 200 || __GLASGOW_HASKELL__ >= 202
-# define FAST_STRING FastString {-_PackedString -}
-# if __GLASGOW_HASKELL__ < 200
-# define SLIT(x) (mkFastCharString (A# (x#)))
-# elif __GLASGOW_HASKELL__ < 209
-# define SLIT(x) (mkFastCharString (GlaExts.A# (x#)))
-# else
-# define SLIT(x) (mkFastCharString (Addr.A# (x#)))
-# endif
-# define _CMP_STRING_ cmpPString
- /* cmpPString defined in utils/Util.lhs */
-# define _NULL_ nullFastString {-_nullPS-}
-# define _NIL_ (mkFastString "") {-_nilPS -}
-# define _CONS_ consFS {-_consPS-}
-# define _HEAD_ headFS {-_headPS-}
-# define _TAIL_ tailFS {-_tailPS-}
-# define _LENGTH_ lengthFS {-_lengthPS-}
-# define _PK_ mkFastString {-_packString-}
-# define _UNPK_ unpackFS {-_unpackPS-}
- /* # define _SUBSTR_ _substrPS */
-# define _APPEND_ `appendFS` {-`_appendPS`-}
-# define _CONCAT_ concatFS {-_concatPS-}
-# else
-# define FAST_STRING GHCbase.PackedString
-# define SLIT(x) (packCString (GHCbase.A# x#))
-# define _CMP_STRING_ cmpPString
-# define _NULL_ nullPS
-# define _NIL_ nilPS
-# define _CONS_ consPS
-# define _HEAD_ headPS
-# define _TAIL_ tailPS
-# define _LENGTH_ lengthPS
-# define _PK_ packString
-# define _UNPK_ unpackPS
-# define _SUBSTR_ substrPS
-# define _APPEND_ `appendPS`
-# define _CONCAT_ concatPS
-# endif
+#define COMMA ,
+
+#ifdef DEBUG
+#define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else
+#define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else
+#define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg))
+#define ASSERTM(mbool) do { bool <- mbool; ASSERT(bool) return () }
+#define ASSERTM2(mbool,msg) do { bool <- mbool; ASSERT2(bool,msg) return () }
#else
-# define FAST_STRING String
-# define SLIT(x) (x)
-# define _CMP_STRING_ cmpString
-# define _NULL_ null
-# define _NIL_ ""
-# define _CONS_ (:)
-# define _HEAD_ head
-# define _TAIL_ tail
-# define _LENGTH_ length
-# define _PK_ (\x->x)
-# define _UNPK_ (\x->x)
-# define _SUBSTR_ substr{-from Utils-}
-# define _APPEND_ ++
-# define _CONCAT_ concat
+#define ASSERT(e) if False then error "ASSERT" else
+#define ASSERT2(e,msg) if False then error "ASSERT2" else
+#define ASSERTM(e)
+#define ASSERTM2(e,msg)
+#define WARN(e,msg) if False then error "WARN" else
#endif
+-- This #ifndef lets us switch off the "import FastString"
+-- when compiling FastString itself
+#ifndef COMPILING_FAST_STRING
+--
+import qualified FastString as FS
#endif
+
+#define SLIT(x) (FS.mkLitString# (x#))
+#define FSLIT(x) (FS.mkFastString# (x#))
+
+-- Useful for declaring arguments to be strict
+#define STRICT1(f) f a b c | a `seq` False = undefined
+#define STRICT2(f) f a b | a `seq` b `seq` False = undefined
+#define STRICT3(f) f a b c | a `seq` b `seq` c `seq` False = undefined
+#define STRICT4(f) f a b c d | a `seq` b `seq` c `seq` d `seq` False = undefined
+#define STRICT5(f) f a b c d e | a `seq` b `seq` c `seq` d `seq` e `seq` False = undefined
+#define STRICT6(f) f a b c d e f | a `seq` b `seq` c `seq` d `seq` e `seq` f `seq` False = undefined
+
+#endif /* HsVersions.h */
+