diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-02-15 12:17:33 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-02-15 12:17:33 +0100 |
| commit | 646b4d18b726c58e03a70ee4674a132360a4e62c (patch) | |
| tree | a010b2ef0a9e7189dd92dfc7cb666ba3fea0ce70 | |
| parent | b9fe4cd5ea843e95a333520e2e6036dd83852f5e (diff) | |
| download | haskell-wip/andreask/silence_keepAlive.tar.gz | |
Remove leftover trace messages from the keepAlive# work.wip/andreask/silence_keepAlive
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index 01934423ed..7c17bad4ad 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -806,9 +806,8 @@ cpeApp top_env expr : CpeApp arg : CpeApp s0 : CpeApp k - : rest <- pprTrace "cpe_app keepAlive#" (ppr args) args - = do { pprTraceM "cpe_app(keepAlive#)" (ppr n) - ; y <- newVar result_ty + : rest <- args + = do { y <- newVar result_ty ; s2 <- newVar realWorldStatePrimTy ; -- beta reduce if possible ; (floats, k') <- case k of @@ -818,7 +817,6 @@ cpeApp top_env expr expr = Case k' y result_ty [Alt DEFAULT [] rhs] rhs = let scrut = mkApps (Var touchId) [Type arg_rep, Type arg_ty, arg, Var realWorldPrimId] in Case scrut s2 result_ty [Alt DEFAULT [] (Var y)] - ; pprTraceM "cpe_app(keepAlive)" (ppr expr) ; (floats', expr') <- cpeBody env expr ; return (floats `appendFloats` floats', expr') } |