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/main/HscMain.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/main/HscMain.hs')
| -rw-r--r-- | compiler/main/HscMain.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 58434e93c6..4b26cdb03e 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -1436,8 +1436,8 @@ myCoreToStg :: DynFlags -> Module -> CoreProgram -> IO ( [StgBinding] -- output program , CollectedCCs) -- cost centre info (declared and used) myCoreToStg dflags this_mod prepd_binds = do - stg_binds - <- {-# SCC "Core2Stg" #-} + let stg_binds + = {-# SCC "Core2Stg" #-} coreToStg dflags this_mod prepd_binds (stg_binds2, cost_centre_info) |