diff options
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgBindery.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs index ff4d4c8c1a..459938ddf7 100644 --- a/ghc/compiler/codeGen/CgBindery.lhs +++ b/ghc/compiler/codeGen/CgBindery.lhs @@ -467,8 +467,9 @@ buildLivenessMask uniq sp info_down ] -- flatten this list into a list of unboxed stack slots - flatten_slots = foldr (\(ofs,size) r -> [ofs-size+1 .. ofs] ++ r) [] - unboxed_slots + flatten_slots = sortLt (<) + (foldr (\(ofs,size) r -> [ofs-size+1 .. ofs] ++ r) [] + unboxed_slots) -- merge in the free slots all_slots = addFreeSlots flatten_slots free ++ |