Commit e59ac28b authored by simonmar's avatar simonmar
Browse files

[project @ 2003-05-19 11:33:06 by simonmar]

Eeek!  intsToReverseBitmap was borked for bitmaps with more than
wORD_SIZE_IN_BITS entries.
parent b15e663f
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment