diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2012-06-09 18:15:01 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2012-06-09 22:26:49 +0100 |
| commit | ad6af5fc6db334a373ef3b7cca72143a8bf6b459 (patch) | |
| tree | 8eede5d05d2cb199b2a7f013a3bf9624f8d43d26 /compiler/cmm/Bitmap.hs | |
| parent | b3dd20721470d5f2e0b5fec795dbe31e01d2cdcd (diff) | |
| download | haskell-ad6af5fc6db334a373ef3b7cca72143a8bf6b459.tar.gz | |
Attempt to fix the bytecode generator for unboxed tuples, given the latest changes to unboxed tuple support
Diffstat (limited to 'compiler/cmm/Bitmap.hs')
| -rw-r--r-- | compiler/cmm/Bitmap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/Bitmap.hs b/compiler/cmm/Bitmap.hs index 1fbbf8fdf3..642ae40fdb 100644 --- a/compiler/cmm/Bitmap.hs +++ b/compiler/cmm/Bitmap.hs @@ -63,7 +63,7 @@ intsToBitmap size slots{- must be sorted -} -- 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. +-- The list of @Int@s /must/ be already sorted and duplicate-free. intsToReverseBitmap :: Int -> [Int] -> Bitmap intsToReverseBitmap size slots{- must be sorted -} | size <= 0 = [] |