diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-02-04 16:22:48 -0500 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-02-04 16:24:09 -0500 |
| commit | 4f9967aa3d1f7cfd539d0c173cafac0fe290e26f (patch) | |
| tree | 804e9f55f2eecd955bc55b6bffb39ed41429483f /compiler/codeGen/StgCmm.hs | |
| parent | bbc0ec5733df434878b02f7556a1cc947718a8b1 (diff) | |
| download | haskell-4f9967aa3d1f7cfd539d0c173cafac0fe290e26f.tar.gz | |
Remove unused LiveVars and SRT fields of StgCase and StgLetNoEscape
Also remove the functions and types that became useless after removing
the fields:
- SRT functions
- LiveInfo type and functions
- freeVarsToLiveVars
- unariseLives and unariseSRT
Reviewers: bgamari, simonpj, austin
Reviewed By: simonpj
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1880
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index b0dd9b11b8..9d14db9bb8 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -141,7 +141,7 @@ cgTopRhs :: DynFlags -> RecFlag -> Id -> StgRhs -> (CgIdInfo, FCode ()) cgTopRhs dflags _rec bndr (StgRhsCon _cc con args) = cgTopRhsCon dflags bndr con args -cgTopRhs dflags rec bndr (StgRhsClosure cc bi fvs upd_flag _srt args body) +cgTopRhs dflags rec bndr (StgRhsClosure cc bi fvs upd_flag args body) = ASSERT(null fvs) -- There should be no free variables cgTopRhsClosure dflags rec bndr cc bi upd_flag args body |