From 6f6d72b2c382860a5f7a08779b2405da8473814c Mon Sep 17 00:00:00 2001 From: Brian Foley Date: Mon, 4 May 2020 11:49:21 -0700 Subject: 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. --- compiler/GHC/CmmToLlvm/Base.hs | 28 +--------------------------- 1 file changed, 1 insertion(+), 27 deletions(-) (limited to 'compiler/GHC/CmmToLlvm') 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 -- -- cgit v1.2.1