From: simonm <unknown>
Date: Wed, 6 Jan 1999 15:55:03 +0000 (+0000)
Subject: [project @ 1999-01-06 15:55:03 by simonm]
X-Git-Tag: Approx_2487_patches~152
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6403231d17e5f9db2746474a09c22df6ba1f44c2;p=ghc-hetmet.git

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