diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-11-12 06:50:54 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-11-12 06:51:49 +0300 |
| commit | d30352add1da67dd0346613853cd423c7becbaeb (patch) | |
| tree | 634126b59821c7b6b27cd00fc3fa287811d86b25 /compiler/stgSyn/StgLint.hs | |
| parent | 13ff0b7ced097286e0d7b054f050871effe07f86 (diff) | |
| download | haskell-d30352add1da67dd0346613853cd423c7becbaeb.tar.gz | |
Remove StgBinderInfo and related computation in CoreToStg
- The StgBinderInfo type was never used in the code gen, so the type, related
computation in CoreToStg, and some comments about it are removed. See #15770
for more details.
- Simplified CoreToStg after removing the StgBinderInfo computation: removed
StgBinderInfo arguments and mfix stuff.
The StgBinderInfo values were not used in the code gen, but I still run nofib
just to make sure: 0.0% change in allocations and binary sizes.
Test Plan: Validated locally
Reviewers: simonpj, simonmar, bgamari, sgraf
Reviewed By: sgraf
Subscribers: AndreasK, sgraf, rwbarton, carter
Differential Revision: https://phabricator.haskell.org/D5232
Diffstat (limited to 'compiler/stgSyn/StgLint.hs')
| -rw-r--r-- | compiler/stgSyn/StgLint.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stgSyn/StgLint.hs b/compiler/stgSyn/StgLint.hs index 58f14a1b3f..35a498f368 100644 --- a/compiler/stgSyn/StgLint.hs +++ b/compiler/stgSyn/StgLint.hs @@ -116,10 +116,10 @@ lint_binds_help (binder, rhs) lintStgRhs :: StgRhs -> LintM () -lintStgRhs (StgRhsClosure _ _ _ _ [] expr) +lintStgRhs (StgRhsClosure _ _ _ [] expr) = lintStgExpr expr -lintStgRhs (StgRhsClosure _ _ _ _ binders expr) +lintStgRhs (StgRhsClosure _ _ _ binders expr) = addLoc (LambdaBodyOf binders) $ addInScopeVars binders $ lintStgExpr expr |