[Git][ghc/ghc][wip/T17978] Remove annTopBindingsFreeVars

[Simon Jakobi]

Simon Jakobi pushed to branch wip/T17978 at Glasgow Haskell Compiler / GHC


Commits:
d33b3085 by Simon Jakobi at 2020-04-03T16:32:09+02:00
Remove annTopBindingsFreeVars

- - - - -


1 changed file:

- compiler/GHC/Stg/FVs.hs


Changes:

=====================================
compiler/GHC/Stg/FVs.hs
=====================================
@@ -38,7 +38,6 @@ Top-level closure bindings never capture variables as all of their free
 variables are global.
 -}
 module GHC.Stg.FVs (
-    annTopBindingsFreeVars,
     annBindingFreeVars
   ) where
 
@@ -65,14 +64,6 @@ addLocals :: [Id] -> Env -> Env
 addLocals bndrs env
   = env { locals = extendVarSetList (locals env) bndrs }
 
--- | Annotates a top-level STG binding group with its free variables.
-annTopBindingsFreeVars :: [StgTopBinding] -> [CgStgTopBinding]
-annTopBindingsFreeVars = map go
-  where
-    go (StgTopStringLit id bs) = StgTopStringLit id bs
-    go (StgTopLifted bind)
-      = StgTopLifted (annBindingFreeVars bind)
-
 -- | Annotates an STG binding with its free variables.
 annBindingFreeVars :: StgBinding -> CgStgBinding
 annBindingFreeVars = fst . binding emptyEnv emptyDVarSet



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d33b3085fe9920862849fb8284269350a89dc9cd
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/20200403/35d5aec0/attachment.html>