diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2018-02-18 11:08:52 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-02-18 11:57:45 -0500 |
| commit | ccda4862102104e080a200e4d9c2ca8f42eb5b70 (patch) | |
| tree | ec60814f7262b71dc0dff0bd1706f9a0efc24923 /compiler/codeGen/StgCmmLayout.hs | |
| parent | bfb90bcab844ded9051370b822f0a9582c35e83e (diff) | |
| download | haskell-ccda4862102104e080a200e4d9c2ca8f42eb5b70.tar.gz | |
Tidy up and consolidate canned CmmReg and CmmGlobals
Test Plan: validate
Reviewers: bgamari, erikd
Reviewed By: bgamari
Subscribers: rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D4380
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 5111b93bc5..95828ad4c6 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -39,7 +39,6 @@ import StgCmmArgRep -- notably: ( slowCallPattern ) import StgCmmTicky import StgCmmMonad import StgCmmUtils -import StgCmmProf (curCCS) import MkGraph import SMRep @@ -373,7 +372,7 @@ slowArgs dflags args -- careful: reps contains voids (V), but args does not stg_ap_pat = mkCmmRetInfoLabel rtsUnitId arg_pat this_pat = (N, Just (mkLblExpr stg_ap_pat)) : call_args - save_cccs = [(N, Just (mkLblExpr save_cccs_lbl)), (N, Just curCCS)] + save_cccs = [(N, Just (mkLblExpr save_cccs_lbl)), (N, Just cccsExpr)] save_cccs_lbl = mkCmmRetInfoLabel rtsUnitId (fsLit "stg_restore_cccs") ------------------------------------------------------------------------- |