From 3aa061857b4df40fc641ef748d5f651d664b22f2 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Thu, 23 Aug 2007 13:34:07 +0000 Subject: [PATCH] Regalloc stage dump in right order --- compiler/nativeGen/RegAllocColor.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4