From: simonmar <unknown>
Date: Mon, 19 May 2003 11:33:06 +0000 (+0000)
Subject: [project @ 2003-05-19 11:33:06 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~902
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e59ac28b798587aeb075250ac3f97e5f41807089;p=ghc-hetmet.git

[project @ 2003-05-19 11:33:06 by simonmar]
Eeek!  intsToReverseBitmap was borked for bitmaps with more than
wORD_SIZE_IN_BITS entries.
---

diff --git a/ghc/compiler/codeGen/Bitmap.hs b/ghc/compiler/codeGen/Bitmap.hs
index ce0aa54..36915e0 100644
--- 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