rationalTyConName,
ratioDataConName,
ratioTyConName,
- byteArrayTyConName,
- mutableByteArrayTyConName,
integerTyConName, smallIntegerDataConName, largeIntegerDataConName,
-- Classes. *Must* include:
-- Others
otherwiseIdName,
plusIntegerName, timesIntegerName,
- eqStringName, assertName, breakpointName, assertErrorName,
- runSTRepName,
+ eqStringName, assertName, breakpointName, breakpointCondName,
+ assertErrorName, runSTRepName,
printName, fstName, sndName,
-- MonadFix
pREL_IO_BASE = mkModule "GHC.IOBase"
pREL_ST = mkModule "GHC.ST"
pREL_ARR = mkModule "GHC.Arr"
-pREL_BYTEARR = mkModule "PrelByteArr"
pREL_STABLE = mkModule "GHC.Stable"
pREL_ADDR = mkModule "GHC.Addr"
pREL_PTR = mkModule "GHC.Ptr"
orName = varQual pREL_BASE FSLIT("||") orIdKey
assertName = varQual pREL_BASE FSLIT("assert") assertIdKey
breakpointName = varQual pREL_BASE FSLIT("breakpoint") breakpointIdKey
+breakpointCondName= varQual pREL_BASE FSLIT("breakpointCond") breakpointCondIdKey
breakpointJumpName
= mkInternalName
breakpointJumpIdKey
(mkOccNameFS varName FSLIT("breakpointJump"))
noSrcLoc
+breakpointCondJumpName
+ = mkInternalName
+ breakpointCondJumpIdKey
+ (mkOccNameFS varName FSLIT("breakpointCondJump"))
+ noSrcLoc
-- PrelTup
fstName = varQual pREL_TUP FSLIT("fst") fstIdKey
ptrTyConName = tcQual pREL_PTR FSLIT("Ptr") ptrTyConKey
funPtrTyConName = tcQual pREL_PTR FSLIT("FunPtr") funPtrTyConKey
--- Byte array types
-byteArrayTyConName = tcQual pREL_BYTEARR FSLIT("ByteArray") byteArrayTyConKey
-mutableByteArrayTyConName = tcQual pREL_BYTEARR FSLIT("MutableByteArray") mutableByteArrayTyConKey
-
-- Foreign objects and weak pointers
stablePtrTyConName = tcQual pREL_STABLE FSLIT("StablePtr") stablePtrTyConKey
newStablePtrName = varQual pREL_STABLE FSLIT("newStablePtr") newStablePtrIdKey
statePrimTyConKey = mkPreludeTyConUnique 50
stableNamePrimTyConKey = mkPreludeTyConUnique 51
stableNameTyConKey = mkPreludeTyConUnique 52
-mutableByteArrayTyConKey = mkPreludeTyConUnique 53
mutVarPrimTyConKey = mkPreludeTyConUnique 55
ioTyConKey = mkPreludeTyConUnique 56
-byteArrayTyConKey = mkPreludeTyConUnique 57
wordPrimTyConKey = mkPreludeTyConUnique 58
wordTyConKey = mkPreludeTyConUnique 59
word8TyConKey = mkPreludeTyConUnique 60
assertErrorIdKey = mkPreludeMiscIdUnique 61
breakpointIdKey = mkPreludeMiscIdUnique 62
-breakpointJumpIdKey = mkPreludeMiscIdUnique 63
+breakpointCondIdKey = mkPreludeMiscIdUnique 63
+breakpointJumpIdKey = mkPreludeMiscIdUnique 64
+breakpointCondJumpIdKey = mkPreludeMiscIdUnique 65
-- Parallel array functions
nullPIdKey = mkPreludeMiscIdUnique 80
cCallishTyKeys =
[ addrTyConKey
, wordTyConKey
- , byteArrayTyConKey
- , mutableByteArrayTyConKey
, stablePtrTyConKey
, int8TyConKey
, int16TyConKey