diff options
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Base.hs | 10 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 11 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Data.hs | 10 |
3 files changed, 3 insertions, 28 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Base.hs b/compiler/llvmGen/LlvmCodeGen/Base.hs index 15918a3a45..5ef0a4bbfa 100644 --- a/compiler/llvmGen/LlvmCodeGen/Base.hs +++ b/compiler/llvmGen/LlvmCodeGen/Base.hs @@ -45,7 +45,7 @@ import CodeGen.Platform ( activeStgRegs ) import DynFlags import FastString import Cmm -import qualified Outputable as Outp +import Outputable as Outp import qualified Pretty as Prt import Platform import UniqFM @@ -538,11 +538,3 @@ aliasify (LMGlobal var val) = do -- away with casting the alias to the desired type in @getSymbolPtr@ -- and instead just emit a reference to the definition symbol directly. -- This is the @Just@ case in @getSymbolPtr@. - --- ---------------------------------------------------------------------------- --- * Misc --- - --- | Error function -panic :: String -> a -panic s = Outp.panic $ "LlvmCodeGen.Base." ++ s diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 4f864b6904..3a7c05b535 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -24,8 +24,7 @@ import Hoopl import DynFlags import FastString import ForeignCall -import Outputable hiding ( panic, pprPanic ) -import qualified Outputable +import Outputable import Platform import OrdList import UniqSupply @@ -1673,14 +1672,6 @@ toIWord :: Integral a => DynFlags -> a -> LlvmVar toIWord dflags = mkIntLit (llvmWord dflags) --- | Error functions -panic :: String -> a -panic s = Outputable.panic $ "LlvmCodeGen.CodeGen." ++ s - -pprPanic :: String -> SDoc -> a -pprPanic s d = Outputable.pprPanic ("LlvmCodeGen.CodeGen." ++ s) d - - -- | Returns TBAA meta data by unique getTBAAMeta :: Unique -> LlvmM [MetaAnnot] getTBAAMeta u = do diff --git a/compiler/llvmGen/LlvmCodeGen/Data.hs b/compiler/llvmGen/LlvmCodeGen/Data.hs index 42f4dcd599..b306748d23 100644 --- a/compiler/llvmGen/LlvmCodeGen/Data.hs +++ b/compiler/llvmGen/LlvmCodeGen/Data.hs @@ -17,7 +17,7 @@ import CLabel import Cmm import FastString -import qualified Outputable +import Outputable -- ---------------------------------------------------------------------------- -- * Constants @@ -127,11 +127,3 @@ genStaticLit (CmmBlock b) = genStaticLit $ CmmLabel $ infoTblLbl b genStaticLit (CmmHighStackMark) = panic "genStaticLit: CmmHighStackMark unsupported!" - --- ----------------------------------------------------------------------------- --- * Misc --- - --- | Error Function -panic :: String -> a -panic s = Outputable.panic $ "LlvmCodeGen.Data." ++ s |
