NCG: Split block reorder thing in linear allocator into separate fn

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

diff --git a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
index d9e3994..d3f821b 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
@@ -152,8 +152,8 @@ joinToTargets_again
                --              
                let sccs  = stronglyConnCompFromEdgedVerticesR graph
 
-               -- debugging
-{-             pprTrace 
+{-             -- debugging
+               pprTrace 
                        ("joinToTargets: making fixup code")
                        (vcat   [ text "        in block: "     <> ppr block_id
                                , text " jmp instruction: "     <> ppr instr