unused import

[ghc-hetmet.git] / compiler / prelude / PrelNames.lhs

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index d656fbf..ae544b3 100644 (file)
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -110,8 +110,6 @@ basicKnownKeyNames
        rationalTyConName,
        ratioDataConName,
        ratioTyConName,
-       byteArrayTyConName,
-       mutableByteArrayTyConName,
        integerTyConName, smallIntegerDataConName, largeIntegerDataConName,
 
        --  Classes.  *Must* include:
@@ -179,15 +177,15 @@ basicKnownKeyNames
        toPName, bpermutePName, bpermuteDftPName, indexOfPName,
 
        -- FFI primitive types that are not wired-in.
-       stablePtrTyConName, ptrTyConName, funPtrTyConName, addrTyConName,
+       stablePtrTyConName, ptrTyConName, funPtrTyConName,
        int8TyConName, int16TyConName, int32TyConName, int64TyConName,
        wordTyConName, word8TyConName, word16TyConName, word32TyConName, word64TyConName,
 
        -- Others
        otherwiseIdName, 
        plusIntegerName, timesIntegerName,
-       eqStringName, assertName, breakpointName, assertErrorName,
-        runSTRepName,
+       eqStringName, assertName, breakpointName, breakpointCondName,
+        assertErrorName, runSTRepName,
        printName, fstName, sndName,
 
        -- MonadFix
@@ -240,7 +238,6 @@ pREL_CONC   = mkModule "GHC.Conc"
 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"
@@ -263,7 +260,6 @@ pREL_WORD   = mkModule "GHC.Word"
 mONAD          = mkModule "Control.Monad"
 mONAD_FIX      = mkModule "Control.Monad.Fix"
 aRROW          = mkModule "Control.Arrow"
-aDDR           = mkModule "Addr"
 rANDOM         = mkModule "System.Random"
 
 gLA_EXTS       = mkModule "GHC.Exts"
@@ -352,7 +348,6 @@ unpackCStringFoldr_RDR      = nameRdrName unpackCStringFoldrName
 unpackCStringUtf8_RDR          = nameRdrName unpackCStringUtf8Name
 
 newStablePtr_RDR       = nameRdrName newStablePtrName
-addrDataCon_RDR                = dataQual_RDR aDDR FSLIT("A#")
 wordDataCon_RDR                = dataQual_RDR pREL_WORD FSLIT("W#")
 
 bindIO_RDR             = nameRdrName bindIOName
@@ -456,6 +451,9 @@ unpackCStringFoldrName  = varQual pREL_BASE FSLIT("unpackFoldrCString#") unpackC
 unpackCStringUtf8Name   = varQual pREL_BASE FSLIT("unpackCStringUtf8#") unpackCStringUtf8IdKey
 eqStringName           = varQual pREL_BASE FSLIT("eqString")  eqStringIdKey
 
+-- The 'inline' function
+inlineIdName           = varQual pREL_BASE FSLIT("inline") inlineIdKey
+
 -- Base classes (Eq, Ord, Functor)
 eqClassName      = clsQual pREL_BASE FSLIT("Eq")      eqClassKey
 eqName           = methName eqClassName FSLIT("==")   eqClassOpKey
@@ -480,11 +478,17 @@ andName             = varQual pREL_BASE FSLIT("&&")         andIdKey
 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
@@ -598,17 +602,10 @@ word64TyConName   = tcQual  pREL_WORD FSLIT("Word64") word64TyConKey
 wordTyConName     = tcQual  pREL_WORD FSLIT("Word")   wordTyConKey
 wordDataConName   = conName wordTyConName FSLIT("W#") wordDataConKey
 
--- Addr module
-addrTyConName    = tcQual   aDDR FSLIT("Addr") addrTyConKey
-
 -- PrelPtr module
 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
@@ -727,7 +724,6 @@ randomGenClassKey   = mkPreludeClassUnique 32
 
 \begin{code}
 addrPrimTyConKey                       = mkPreludeTyConUnique  1
-addrTyConKey                           = mkPreludeTyConUnique  2
 arrayPrimTyConKey                      = mkPreludeTyConUnique  3
 boolTyConKey                           = mkPreludeTyConUnique  4
 byteArrayPrimTyConKey                  = mkPreludeTyConUnique  5
@@ -762,10 +758,8 @@ stablePtrTyConKey                  = mkPreludeTyConUnique 36
 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
@@ -910,7 +904,11 @@ lazyIdKey                = mkPreludeMiscIdUnique 60
 assertErrorIdKey             = mkPreludeMiscIdUnique 61
 
 breakpointIdKey               = mkPreludeMiscIdUnique 62
-breakpointJumpIdKey           = mkPreludeMiscIdUnique 63
+breakpointCondIdKey           = mkPreludeMiscIdUnique 63
+breakpointJumpIdKey           = mkPreludeMiscIdUnique 64
+breakpointCondJumpIdKey       = mkPreludeMiscIdUnique 65
+
+inlineIdKey                  = mkPreludeMiscIdUnique 66
 
 -- Parallel array functions
 nullPIdKey                   = mkPreludeMiscIdUnique 80
@@ -985,31 +983,12 @@ loopAIdKey        = mkPreludeMiscIdUnique 124
 
 \begin{code}
 numericTyKeys = 
-       [ addrTyConKey
-       , wordTyConKey
+       [ wordTyConKey
        , intTyConKey
        , integerTyConKey
        , doubleTyConKey
        , floatTyConKey
        ]
-
-       -- Renamer always imports these data decls replete with constructors
-       -- so that desugarer can always see their constructors.  Ugh!
-cCallishTyKeys = 
-       [ addrTyConKey
-       , wordTyConKey
-       , byteArrayTyConKey
-       , mutableByteArrayTyConKey
-       , stablePtrTyConKey
-       , int8TyConKey
-       , int16TyConKey
-       , int32TyConKey
-       , int64TyConKey
-       , word8TyConKey
-       , word16TyConKey
-       , word32TyConKey
-       , word64TyConKey
-       ]
 \end{code}