From 06f647d9ced1a395c812a265a40d2ff1699d3ca2 Mon Sep 17 00:00:00 2001 From: "benl@ouroborus.net" Date: Thu, 24 Jun 2010 08:14:45 +0000 Subject: [PATCH] NCG: Don't actually complain on unreachable code blocks --- compiler/nativeGen/RegAlloc/Linear/Main.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index 63f2814..64dbe75 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -212,10 +212,12 @@ process _ _ [] [] accum _ process first_id block_live [] next_round accum madeProgress | not madeProgress - = pprTrace "RegAlloc.Linear.Main.process: no progress made, bailing out." + + {- BUGS: There are so many unreachable blocks in the code the warnings are overwhelming. + pprTrace "RegAlloc.Linear.Main.process: no progress made, bailing out." ( text "Unreachable blocks:" - $$ vcat (map ppr next_round)) - $ return $ reverse accum + $$ vcat (map ppr next_round)) -} + = return $ reverse accum | otherwise = process first_id block_live -- 1.7.10.4