diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-07-12 17:09:52 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-07-12 17:10:08 +0300 |
| commit | 3efd7cd9bacc362b97a5c8b23994addaa614adda (patch) | |
| tree | f851f514d16385389b45e2e8322f4d97de72ebbb /compiler/cmm/CmmParse.y | |
| parent | 1c3536239cb5e83ff1427ac410d8fa2549e7d9c0 (diff) | |
| download | haskell-3efd7cd9bacc362b97a5c8b23994addaa614adda.tar.gz | |
Minor refactoring in CmmUtils.mkLiveness
Test Plan: validate
Reviewers: bgamari, simonmar
Reviewed By: simonmar
Subscribers: rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D4957
Diffstat (limited to 'compiler/cmm/CmmParse.y')
| -rw-r--r-- | compiler/cmm/CmmParse.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y index 4d7e288381..8cc988383e 100644 --- a/compiler/cmm/CmmParse.y +++ b/compiler/cmm/CmmParse.y @@ -542,7 +542,7 @@ info :: { CmmParse (CLabel, Maybe CmmInfoTable, [LocalReg]) } live <- sequence $7 let prof = NoProfilingInfo -- drop one for the info pointer - bitmap = mkLiveness dflags (map Just (drop 1 live)) + bitmap = mkLiveness dflags (drop 1 live) rep = mkRTSRep (fromIntegral $5) $ mkStackRep bitmap return (mkCmmRetLabel pkg $3, Just $ CmmInfoTable { cit_lbl = mkCmmRetInfoLabel pkg $3 |