diff options
| author | dias@eecs.harvard.edu <unknown> | 2008-11-26 18:08:08 +0000 |
|---|---|---|
| committer | dias@eecs.harvard.edu <unknown> | 2008-11-26 18:08:08 +0000 |
| commit | 5892af0e08fdb890b5a0b9a64346d9f7773a6ed8 (patch) | |
| tree | e804b55046d366bffd1f969a723c5b5ecde21adc /compiler/codeGen/StgCmmLayout.hs | |
| parent | df54e4b621b1d2a8e30b01b3e93494a515d09f48 (diff) | |
| download | haskell-5892af0e08fdb890b5a0b9a64346d9f7773a6ed8.tar.gz | |
drop some debugging traces and use only one flag for new codegen
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 74bac43108..5daceedc43 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -472,9 +472,7 @@ emitClosureProcAndInfoTable top_lvl bndr cl_info args body -- top-level binding, which this binding would incorrectly shadow. ; node <- if top_lvl then return $ idToReg (NonVoid bndr) else bindToReg (NonVoid bndr) lf_info - ; arg_regs <- - pprTrace "bindArgsToRegs" (ppr args) $ - bindArgsToRegs args + ; arg_regs <- bindArgsToRegs args ; emitClosureAndInfoTable cl_info (node : arg_regs) $ body (node, arg_regs) } |