diff options
| author | mrchebas@gmail.com <unknown> | 2007-01-19 15:08:00 +0000 |
|---|---|---|
| committer | mrchebas@gmail.com <unknown> | 2007-01-19 15:08:00 +0000 |
| commit | e48e1322ec737af04e276bd4f73e722e80b0d74d (patch) | |
| tree | 92dead4d32beaecc0de2acfb3432bab894ccb12b /compiler | |
| parent | a32098431939d2411798312b11f18cf99e9f724b (diff) | |
| download | haskell-e48e1322ec737af04e276bd4f73e722e80b0d74d.tar.gz | |
small debugging output cleanup
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/codeGen/CgUtils.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs index 29b972ce62..804aeabd13 100644 --- a/compiler/codeGen/CgUtils.hs +++ b/compiler/codeGen/CgUtils.hs @@ -474,11 +474,12 @@ mk_switch tag_expr branches mb_deflt lo_tag hi_tag via_C where use_switch = {- pprTrace "mk_switch" ( ppr tag_expr <+> text "n_tags:" <+> int n_tags <+> + text "branches:" <+> ppr (map fst branches) <+> text "n_branches:" <+> int n_branches <+> - text "lo_tag: " <+> int lo_tag <+> - text "hi_tag: " <+> int hi_tag <+> - text "real_lo_tag: " <+> int real_lo_tag <+> - text "real_hi_tag: " <+> int real_hi_tag) $ -} + text "lo_tag:" <+> int lo_tag <+> + text "hi_tag:" <+> int hi_tag <+> + text "real_lo_tag:" <+> int real_lo_tag <+> + text "real_hi_tag:" <+> int real_hi_tag) $ -} ASSERT( n_branches > 1 && n_tags > 1 ) n_tags > 2 && (via_C || (dense && big_enough)) -- up to 4 branches we use a decision tree, otherwise |