diff options
| author | simonm <unknown> | 1999-01-06 15:55:03 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-01-06 15:55:03 +0000 |
| commit | 6403231d17e5f9db2746474a09c22df6ba1f44c2 (patch) | |
| tree | ed00bd2909e9e79b27398b770352c3ed36635809 /ghc/compiler/codeGen | |
| parent | b915a4cb2b5c22b137165bb85bf19b933875be0a (diff) | |
| download | haskell-6403231d17e5f9db2746474a09c22df6ba1f44c2.tar.gz | |
[project @ 1999-01-06 15:55:03 by simonm]
Sort unboxed slots - part of the fix for large bitmaps.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgBindery.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgBindery.lhs b/ghc/compiler/codeGen/CgBindery.lhs index ff4d4c8c1a..459938ddf7 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 ++ |