X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgUtils.hs;h=804aeabd13fe95c139ccc925afd877a0ef746b08;hb=b3a0711bf88db2894261e3666b689b40371ddc48;hp=29b972ce62ee705ef3a733e0c6b5faaba28a31c6;hpb=a32098431939d2411798312b11f18cf99e9f724b;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgUtils.hs b/compiler/codeGen/CgUtils.hs
index 29b972c..804aeab 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