diff options
| author | Brian Foley <bpfoley@google.com> | 2020-05-04 11:49:21 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-08 15:29:25 -0400 |
| commit | 6f6d72b2c382860a5f7a08779b2405da8473814c (patch) | |
| tree | 964bb8c790b674bb9db648695f9d6dd4dfb99897 /compiler/GHC/CmmToLlvm | |
| parent | 9afd92512b41cf6c6de3a17b474d8d4bb01158c3 (diff) | |
| download | haskell-6f6d72b2c382860a5f7a08779b2405da8473814c.tar.gz | |
Remove further dead code found by a simple Python script.
Avoid removing some functions that are part of an API even
though they're not used in-tree at the moment.
Diffstat (limited to 'compiler/GHC/CmmToLlvm')
| -rw-r--r-- | compiler/GHC/CmmToLlvm/Base.hs | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/compiler/GHC/CmmToLlvm/Base.hs b/compiler/GHC/CmmToLlvm/Base.hs index dc9e830751..f5fa5ea1be 100644 --- a/compiler/GHC/CmmToLlvm/Base.hs +++ b/compiler/GHC/CmmToLlvm/Base.hs @@ -32,7 +32,7 @@ module GHC.CmmToLlvm.Base ( llvmFunSig, llvmFunArgs, llvmStdFunAttrs, llvmFunAlign, llvmInfAlign, llvmPtrBits, tysToParams, llvmFunSection, padLiveArgs, isFPR, - strCLabel_llvm, strDisplayName_llvm, strProcedureName_llvm, + strCLabel_llvm, getGlobalPtr, generateExternDecls, aliasify, llvmDefLabel @@ -514,32 +514,6 @@ strCLabel_llvm lbl = do sdoc return (fsLit str) -strDisplayName_llvm :: CLabel -> LlvmM LMString -strDisplayName_llvm lbl = do - dflags <- getDynFlags - let sdoc = pprCLabel dflags lbl - depth = Outp.PartWay 1 - style = Outp.mkUserStyle Outp.reallyAlwaysQualify depth - str = Outp.renderWithStyle (initSDocContext dflags style) sdoc - return (fsLit (dropInfoSuffix str)) - -dropInfoSuffix :: String -> String -dropInfoSuffix = go - where go "_info" = [] - go "_static_info" = [] - go "_con_info" = [] - go (x:xs) = x:go xs - go [] = [] - -strProcedureName_llvm :: CLabel -> LlvmM LMString -strProcedureName_llvm lbl = do - dflags <- getDynFlags - let sdoc = pprCLabel dflags lbl - depth = Outp.PartWay 1 - style = Outp.mkUserStyle Outp.neverQualify depth - str = Outp.renderWithStyle (initSDocContext dflags style) sdoc - return (fsLit str) - -- ---------------------------------------------------------------------------- -- * Global variables / forward references -- |