[project @ 2004-10-07 16:08:36 by simonpj]

[ghc-hetmet.git] / ghc / compiler / codeGen / Bitmap.hs

diff --git a/ghc/compiler/codeGen/Bitmap.hs b/ghc/compiler/codeGen/Bitmap.hs
index ce0aa54..36915e0 100644 (file)
--- a/ghc/compiler/codeGen/Bitmap.hs
+++ b/ghc/compiler/codeGen/Bitmap.hs
@@ -59,7 +59,7 @@ intsToReverseBitmap size slots{- must be sorted -}
   | size <= 0 = []
   | otherwise = 
     (foldr xor init (map (1 `shiftL`) these)) : 
-       intsToBitmap (size - wORD_SIZE_IN_BITS) 
+       intsToReverseBitmap (size - wORD_SIZE_IN_BITS) 
             (map (\x -> x - wORD_SIZE_IN_BITS) rest)
    where (these,rest) = span (<wORD_SIZE_IN_BITS) slots
         init