[project @ 1999-01-06 15:55:03 by simonm]

Sort unboxed slots - part of the fix for large bitmaps.

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index ff4d4c8..459938d 100644 (file)
--- 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 ++