diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2007-08-23 13:34:07 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2007-08-23 13:34:07 +0000 |
| commit | 3aa061857b4df40fc641ef748d5f651d664b22f2 (patch) | |
| tree | acd746e78dca1ce3a3c7025e4d94a709d4cccef6 | |
| parent | 9e5cd691a00f5e53bdd735df4d5a33b72eeafedf (diff) | |
| download | haskell-3aa061857b4df40fc641ef748d5f651d664b22f2.tar.gz | |
Regalloc stage dump in right order
| -rw-r--r-- | compiler/nativeGen/RegAllocColor.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAllocColor.hs b/compiler/nativeGen/RegAllocColor.hs index 9c21faacff..0a5c160339 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 |