[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 Util            ( sortLt )
+import Util            ( sortLe )
 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)
-    sorted_ints = sortLt (<) ints
+    sorted_ints = sortLe (<=) ints
     offset = head sorted_ints
     bitmap_entries = map (subtract offset) sorted_ints
     len = last bitmap_entries + 1