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

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

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 ++