From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Thu, 23 Aug 2007 13:34:07 +0000 (+0000)
Subject: Regalloc stage dump in right order
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=3aa061857b4df40fc641ef748d5f651d664b22f2;hp=9e5cd691a00f5e53bdd735df4d5a33b72eeafedf;p=ghc-hetmet.git

Regalloc stage dump in right order
---

diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs
index 9c21faa..0a5c160 100644
--- a/compiler/nativeGen/RegAllocColor.hs
+++ b/compiler/nativeGen/RegAllocColor.hs
@@ -115,7 +115,7 @@ regAlloc_spin (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code
 			, raPatchedCmm	= code_patched }
 
 		return	( code_nat
-			, maybeToList stat1 ++ [stat] ++ debug_codeGraphs
+			, [stat] ++ maybeToList stat1 ++ debug_codeGraphs
 			, graph_colored)
 
 	 else do
@@ -137,7 +137,7 @@ regAlloc_spin (spinCount :: Int) triv regsFree slotsFree debug_codeGraphs code
 			    	
 		-- try again
 		regAlloc_spin (spinCount + 1) triv regsFree slotsFree' 
-			(maybeToList stat1 ++ [stat] ++ debug_codeGraphs)
+			([stat] ++ maybeToList stat1 ++ debug_codeGraphs)
 			code_relive