Skip to content
Snippets Groups Projects
Commit 6403231d authored by Simon Marlow's avatar Simon Marlow
Browse files

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

Sort unboxed slots - part of the fix for large bitmaps.
parent b915a4cb
No related branches found
No related tags found
No related merge requests found
...@@ -467,8 +467,9 @@ buildLivenessMask uniq sp info_down ...@@ -467,8 +467,9 @@ buildLivenessMask uniq sp info_down
] ]
-- flatten this list into a list of unboxed stack slots -- flatten this list into a list of unboxed stack slots
flatten_slots = foldr (\(ofs,size) r -> [ofs-size+1 .. ofs] ++ r) [] flatten_slots = sortLt (<)
unboxed_slots (foldr (\(ofs,size) r -> [ofs-size+1 .. ofs] ++ r) []
unboxed_slots)
-- merge in the free slots -- merge in the free slots
all_slots = addFreeSlots flatten_slots free ++ all_slots = addFreeSlots flatten_slots free ++
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment