[Git][ghc/ghc][wip/osa1/std_string_thunks] Remove unused stuff

[Ömer Sinan Ağacan]

Ömer Sinan Ağacan pushed to branch wip/osa1/std_string_thunks at Glasgow Haskell Compiler / GHC


Commits:
0fdc1369 by Ömer Sinan Ağacan at 2020-04-06T10:14:31+03:00
Remove unused stuff

- - - - -


1 changed file:

- compiler/GHC/StgToCmm/Closure.hs


Changes:

=====================================
compiler/GHC/StgToCmm/Closure.hs
=====================================
@@ -24,7 +24,6 @@ module GHC.StgToCmm.Closure (
         LambdaFormInfo,         -- Abstract
         StandardFormInfo,        -- ...ditto...
         mkLFThunk, mkLFReEntrant, mkConLFInfo, mkSelectorLFInfo,
-        mkMkStringLFInfo,
         mkApLFInfo, mkLFImported, mkLFArgument, mkLFLetNoEscape,
         mkLFStringLit,
         lfDynTag,
@@ -88,7 +87,6 @@ import GHC.Types.Basic
 import Outputable
 import GHC.Driver.Session
 import Util
-import GHC.Stack (HasCallStack, prettyCallStack, callStack)
 
 import Data.Coerce (coerce)
 import qualified Data.ByteString.Char8 as BS8
@@ -260,8 +258,6 @@ data StandardFormInfo
         -- in the RTS to save space.
         RepArity                -- Arity, n
 
-  | MkStringThunk
-
 ------------------------------------------------------
 --                Building LambdaFormInfo
 ------------------------------------------------------
@@ -322,10 +318,6 @@ mkSelectorLFInfo id offset updatable
   = LFThunk NotTopLevel False updatable (SelectorThunk offset)
         (might_be_a_function (idType id))
 
--------------
-mkMkStringLFInfo :: Id -> LambdaFormInfo
-mkMkStringLFInfo id = LFThunk TopLevel True True MkStringThunk False
-
 -------------
 mkApLFInfo :: Id -> UpdateFlag -> Arity -> LambdaFormInfo
 mkApLFInfo id upd_flag arity
@@ -675,9 +667,7 @@ data ClosureInfo
 -- | Convert from 'ClosureInfo' to 'CmmInfoTable'.
 mkCmmInfo :: HasCallStack => ClosureInfo -> Id -> CostCentreStack -> CmmInfoTable
 mkCmmInfo ClosureInfo {..} id ccs
-  = pprTrace "mkCmmInfo" (text "info table label:" <+> ppr closureInfoLabel $$
-                          text (prettyCallStack callStack)) $
-    CmmInfoTable { cit_lbl  = closureInfoLabel
+  = CmmInfoTable { cit_lbl  = closureInfoLabel
                  , cit_rep  = closureSMRep
                  , cit_prof = closureProf
                  , cit_srt  = Nothing
@@ -871,9 +861,6 @@ mkClosureInfoTableLabel id lf_info
         LFThunk _ _ upd_flag (ApThunk arity) _
                       -> mkApInfoTableLabel upd_flag arity
 
-        LFThunk TopLevel _ _ MkStringThunk _
-                      -> mkMkStringInfoTableLabel
-
         LFThunk{}     -> std_mk_lbl name cafs
         LFReEntrant{} -> std_mk_lbl name cafs
         _other        -> panic "closureInfoTableLabel"



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0fdc136977e14043f8efaf9d9dd5c205cc282107

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0fdc136977e14043f8efaf9d9dd5c205cc282107
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200406/ac65bfe2/attachment-0001.html>