NCG: Don't actually complain on unreachable code blocks

[ghc-hetmet.git] / compiler / nativeGen / RegAlloc / Linear / Main.hs

diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs
index 63f2814..64dbe75 100644 (file)
--- 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