diff options
| author | simonpj@microsoft.com <unknown> | 2010-11-16 17:12:47 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-11-16 17:12:47 +0000 |
| commit | e21c922fcdd1dac193bd8ff5670787daa3c21a12 (patch) | |
| tree | e453372a3893e33709f01cc76c89c365e1a7ff7f /compiler/cmm/CmmInfo.hs | |
| parent | 2d367f855c3556166d24cf538d5c34d0ff596a2f (diff) | |
| download | haskell-e21c922fcdd1dac193bd8ff5670787daa3c21a12.tar.gz | |
Remove unncessary fromIntegral calls
Diffstat (limited to 'compiler/cmm/CmmInfo.hs')
| -rw-r--r-- | compiler/cmm/CmmInfo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs index c608372c64..2549453288 100644 --- a/compiler/cmm/CmmInfo.hs +++ b/compiler/cmm/CmmInfo.hs @@ -245,7 +245,7 @@ mkLiveness uniq live = small_bitmap = case bitmap of [] -> 0 - [b] -> fromIntegral b + [b] -> b _ -> panic "mkLiveness" small_liveness = fromIntegral (length bits) .|. (small_bitmap `shiftL` bITMAP_BITS_SHIFT) |