diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-07-31 07:13:10 (GMT) |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-07-31 07:13:10 (GMT) |
| commit | 32c1ad141721f842c61eeeabdbff0d6359fea1bc (patch) | |
| tree | 8431cbfcf60a9d9a71fa1b2232183fefad91181d | |
| parent | 9460748ddf3267f9509e6a37e5c61800ac8e9127 (diff) | |
| download | ghc-wip/cross-constr-cse.zip ghc-wip/cross-constr-cse.tar.gz ghc-wip/cross-constr-cse.tar.bz2 | |
disable the nullary constr subst for nowwip/cross-constr-cse
| -rw-r--r-- | compiler/simplStg/StgCse.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs index 6d845b3..e25ab91 100644 --- a/compiler/simplStg/StgCse.hs +++ b/compiler/simplStg/StgCse.hs @@ -201,9 +201,9 @@ envLookup dataCon args env = lookupTM (dataCon, args') (ce_conAppMap env) addDataCon :: OutId -> LaxDataCon -> [OutStgArg] -> CseEnv -> CseEnv -- do not bother with nullary data constructors, they are static anyways -addDataCon bndr dataCon [] env = env { ce_conAppMap = new_env } - where new_env = alterTM (dataCon, []) (\case Nothing -> pure bndr; p -> p) (ce_conAppMap env) ---addDataCon _ _ [] env = env +--addDataCon bndr dataCon [] env = env { ce_conAppMap = new_env } +-- where new_env = alterTM (dataCon, []) (\case Nothing -> pure bndr; p -> p) (ce_conAppMap env) +addDataCon _ _ [] env = env addDataCon bndr dataCon args env = env { ce_conAppMap = new_env } where new_env = insertTM (dataCon, args) bndr (ce_conAppMap env) |