diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2021-08-25 18:06:57 +0200 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2021-08-25 18:06:57 +0200 |
| commit | ad5d7c433aa6313f2aeb225284407e7cb96e934a (patch) | |
| tree | 46d0cdee3b49a494c7dd3c2c5914bb666043db04 | |
| parent | 8983e6833afcb4ad3db9b8e21aa770274a2561b1 (diff) | |
| download | haskell-wip/sgraf-misc.tar.gz | |
Simplify: Remove Strict argument transformation (#20284)wip/sgraf-misc
| -rw-r--r-- | compiler/GHC/Core/Opt/Simplify.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify.hs b/compiler/GHC/Core/Opt/Simplify.hs index 11b0b50036..7aefea51f5 100644 --- a/compiler/GHC/Core/Opt/Simplify.hs +++ b/compiler/GHC/Core/Opt/Simplify.hs @@ -2166,16 +2166,6 @@ rebuildCall env fun_info | isSimplified dup_flag -- See Note [Avoid redundant simplification] = rebuildCall env (addValArgTo fun_info arg fun_ty) cont - -- Strict arguments - | isStrictArgInfo fun_info - , sm_case_case (getMode env) - = -- pprTrace "Strict Arg" (ppr arg $$ ppr (seIdSubst env) $$ ppr (seInScope env)) $ - simplExprF (arg_se `setInScopeFromE` env) arg - (StrictArg { sc_fun = fun_info, sc_fun_ty = fun_ty - , sc_dup = Simplified - , sc_cont = cont }) - -- Note [Shadowing] - -- Lazy arguments | otherwise -- DO NOT float anything outside, hence simplExprC |