projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-17 15:23:47 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
simplStg
/
SRT.lhs
diff --git
a/ghc/compiler/simplStg/SRT.lhs
b/ghc/compiler/simplStg/SRT.lhs
index
34e61ce
..
cd118d7
100644
(file)
--- a/
ghc/compiler/simplStg/SRT.lhs
+++ b/
ghc/compiler/simplStg/SRT.lhs
@@
-15,7
+15,7
@@
import StgSyn
import Id ( Id )
import VarSet
import VarEnv
import Id ( Id )
import VarSet
import VarEnv
-import Util ( sortLt )
+import Util ( sortLe )
import Maybes ( orElse )
import Maybes ( expectJust )
import Bitmap ( intsToBitmap )
import Maybes ( orElse )
import Maybes ( expectJust )
import Bitmap ( intsToBitmap )
@@
-151,7
+151,7
@@
constructSRT table (SRTEntries entries)
where
ints = map (expectJust "constructSRT" . lookupVarEnv table)
(varSetElems entries)
where
ints = map (expectJust "constructSRT" . lookupVarEnv table)
(varSetElems entries)
- sorted_ints = sortLt (<) ints
+ sorted_ints = sortLe (<=) ints
offset = head sorted_ints
bitmap_entries = map (subtract offset) sorted_ints
len = last bitmap_entries + 1
offset = head sorted_ints
bitmap_entries = map (subtract offset) sorted_ints
len = last bitmap_entries + 1