From 4975f4a6222211028c8252782fea090e0a4e21a7 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Fri, 8 Jun 2007 09:11:57 +0000 Subject: [PATCH] Fixed a documentation error --- compiler/codeGen/Bitmap.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/codeGen/Bitmap.hs b/compiler/codeGen/Bitmap.hs index 93cf43f..2e77014 100644 --- a/compiler/codeGen/Bitmap.hs +++ b/compiler/codeGen/Bitmap.hs @@ -38,7 +38,7 @@ chunkToBitmap chunk = foldr (.|.) 0 [ 1 `shiftL` n | (True,n) <- zip chunk [0..] ] -- | Make a bitmap where the slots specified are the /ones/ in the bitmap. --- eg. @[1,2,4], size 4 ==> 0xb@. +-- eg. @[0,1,3], size 4 ==> 0xb@. -- -- The list of @Int@s /must/ be already sorted. intsToBitmap :: Int -> [Int] -> Bitmap @@ -51,7 +51,7 @@ intsToBitmap size slots{- must be sorted -} where (these,rest) = span ( 0x8@ (we leave any bits outside the size as zero, +-- eg. @[0,1,3], size 4 ==> 0x4@ (we leave any bits outside the size as zero, -- just to make the bitmap easier to read). -- -- The list of @Int@s /must/ be already sorted. -- 1.7.10.4