From: wolfgang.thaller@gmx.net <unknown>
Date: Sat, 25 Feb 2006 03:39:54 +0000 (+0000)
Subject: NCG: Fix Typo in Register Allocator Loop Patch
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=17fc62713c508c5c3242f9a51477d98592e65719;p=ghc-hetmet.git

NCG: Fix Typo in Register Allocator Loop Patch

Fix previous patch "NCG: Handle loops in register allocator"
Of course, I broke it when correcting a style problem just before committing.
---

diff --git a/ghc/compiler/nativeGen/RegisterAlloc.hs b/ghc/compiler/nativeGen/RegisterAlloc.hs
index 669000d..7d2ab1b 100644
--- a/ghc/compiler/nativeGen/RegisterAlloc.hs
+++ b/ghc/compiler/nativeGen/RegisterAlloc.hs
@@ -341,7 +341,7 @@ computeLiveness sccs
 
 
               linearLiveness :: BlockMap RegSet -> [NatBasicBlock]
-                             -> (BlockMap RegSet, AnnBasicBlock])
+                             -> (BlockMap RegSet, [AnnBasicBlock])
               linearLiveness = mapAccumL processBlock
 
 	      processBlock blockmap input@(BasicBlock block_id instrs)