diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:46 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:46 +0000 |
| commit | c2e459becafc3e80832eed152a1f9312a6d3580e (patch) | |
| tree | 7d30166aefb747006b511f010d17b0e600dc86a4 /compiler/nativeGen/AsmCodeGen.lhs | |
| parent | 66fffe21cc80a256f8c34e6a9bbd346d955d2445 (diff) | |
| download | haskell-c2e459becafc3e80832eed152a1f9312a6d3580e.tar.gz | |
Follow Digraph changes in AsmCodeGen
Diffstat (limited to 'compiler/nativeGen/AsmCodeGen.lhs')
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 5ba620bb4e..126d1b8abd 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -456,7 +456,7 @@ sequenceBlocks (entry:blocks) = -- the first block is the entry point ==> it must remain at the start. sccBlocks :: [NatBasicBlock] -> [SCC (NatBasicBlock,Unique,[Unique])] -sccBlocks blocks = stronglyConnCompR (map mkNode blocks) +sccBlocks blocks = stronglyConnCompFromEdgedVerticesR (map mkNode blocks) getOutEdges :: [Instr] -> [Unique] getOutEdges instrs = case jumpDests (last instrs) [] of |