projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a320984
)
small debugging output cleanup
author
mrchebas@gmail.com
<unknown>
Fri, 19 Jan 2007 15:08:00 +0000
(15:08 +0000)
committer
mrchebas@gmail.com
<unknown>
Fri, 19 Jan 2007 15:08:00 +0000
(15:08 +0000)
compiler/codeGen/CgUtils.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/CgUtils.hs
b/compiler/codeGen/CgUtils.hs
index
29b972c
..
804aeab
100644
(file)
--- 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 <+>
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 "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
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