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/StgCmmPrim.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/StgCmmPrim.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index 34c2d06e90..14eb4258de 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -29,6 +29,7 @@ import StgCmmProf ( costCentreFrom, curCCS ) import DynFlags import Platform import BasicTypes +import BlockId import MkGraph import StgSyn import Cmm @@ -1784,7 +1785,7 @@ doNewArrayOp res_r rep info payload n init = do -- Initialise all elements of the the array p <- assignTemp $ cmmOffsetB dflags (CmmReg arr) (hdrSize dflags rep) - for <- newLabelC + for <- newBlockId emitLabel for let loopBody = [ mkStore (CmmReg (CmmLocal p)) init |