summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2021-02-15 12:17:33 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-02-18 13:49:31 -0500
commit766b11ea6352b43cad62a34a8600cea224917326 (patch)
treed96c6d84a0ec79c76473285684f7b2d8b0403d3d /compiler
parent94bbc45df30220369601a225df6a5baab6d2734a (diff)
downloadhaskell-766b11ea6352b43cad62a34a8600cea224917326.tar.gz
Remove leftover trace messages from the keepAlive# work.
Diffstat (limited to 'compiler')
-rw-r--r--compiler/GHC/CoreToStg/Prep.hs6
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')
}