projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-09-17 08:25:25 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgUtils.hs
diff --git
a/ghc/compiler/codeGen/CgUtils.hs
b/ghc/compiler/codeGen/CgUtils.hs
index
fce9023
..
9727fec
100644
(file)
--- a/
ghc/compiler/codeGen/CgUtils.hs
+++ b/
ghc/compiler/codeGen/CgUtils.hs
@@
-439,9
+439,9
@@
mk_switch tag_expr branches mb_deflt lo_tag hi_tag
}
where
use_switch = ASSERT( n_branches > 1 && n_tags > 1 )
}
where
use_switch = ASSERT( n_branches > 1 && n_tags > 1 )
- pprTrace "mk_switch" (ppr tag_expr <+> text "n_tags: "
+ {- pprTrace "mk_switch" (ppr tag_expr <+> text "n_tags: "
<+> int n_tags <+> text "dense: "
<+> int n_tags <+> text "dense: "
- <+> int n_branches) $
+ <+> int n_branches) $ -}
n_tags > 2 && (small || dense)
-- a 2-branch switch always turns into an if.
small = n_tags <= 4
n_tags > 2 && (small || dense)
-- a 2-branch switch always turns into an if.
small = n_tags <= 4