From 6403231d17e5f9db2746474a09c22df6ba1f44c2 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 6 Jan 1999 15:55:03 +0000
Subject: [PATCH] [project @ 1999-01-06 15:55:03 by simonm] Sort unboxed slots
 - part of the fix for large bitmaps.

---
 ghc/compiler/codeGen/CgBindery.lhs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs
index ff4d4c8c1a3d..459938ddf785 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 ++ 
-- 
GitLab