diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-11-29 14:44:19 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-11-29 14:44:20 -0500 |
| commit | 4d4e7a512aa4ecbb5811cccc1dab335379e63efa (patch) | |
| tree | 38aaf168992d569f8ff29e21286873a017562100 /compiler/codeGen/StgCmmBind.hs | |
| parent | 68450878b44ddb63beb3c589cd60d43461900986 (diff) | |
| download | haskell-4d4e7a512aa4ecbb5811cccc1dab335379e63efa.tar.gz | |
Use newBlockId instead of newLabelC
This seems like a clearer name and the fewer functions that
one needs to remember, the better.
Test Plan: validate
Reviewers: austin, simonmar, michalt
Reviewed By: simonmar, michalt
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2735
Diffstat (limited to 'compiler/codeGen/StgCmmBind.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index e173f354b7..31775d6624 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -32,6 +32,7 @@ import StgCmmForeign (emitPrimCall) import MkGraph import CoreSyn ( AltCon(..), tickishIsCode ) +import BlockId import SMRep import Cmm import CmmInfo @@ -485,7 +486,7 @@ closureCodeBody top_lvl bndr cl_info cc args arity body fv_details ; dflags <- getDynFlags ; let node_points = nodeMustPointToIt dflags lf_info node' = if node_points then Just node else Nothing - ; loop_header_id <- newLabelC + ; loop_header_id <- newBlockId -- Extend reader monad with information that -- self-recursive tail calls can be optimized into local -- jumps. See Note [Self-recursive tail calls] in StgCmmExpr. |