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/codeGen | |
| parent | 2d367f855c3556166d24cf538d5c34d0ff596a2f (diff) | |
| download | haskell-e21c922fcdd1dac193bd8ff5670787daa3c21a12.tar.gz | |
Remove unncessary fromIntegral calls
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgCallConv.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmHpc.hs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/compiler/codeGen/CgCallConv.hs b/compiler/codeGen/CgCallConv.hs index b8294ea326..f16a9b5e18 100644 --- a/compiler/codeGen/CgCallConv.hs +++ b/compiler/codeGen/CgCallConv.hs @@ -150,7 +150,7 @@ mkLiveness name size bits = let small_bits = case bits of [] -> 0 - [b] -> fromIntegral b + [b] -> b _ -> panic "livenessToAddrMode" in return (smallLiveness size small_bits) diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index 3d300eda53..d02c949b5e 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -29,7 +29,7 @@ cgTickBox :: Module -> Int -> Code cgTickBox mod n = do let tick_box = (cmmIndex W64 (CmmLit $ CmmLabel $ mkHpcTicksLabel $ mod) - (fromIntegral n) + n ) stmtsC [ CmmStore tick_box (CmmMachOp (MO_Add W64) diff --git a/compiler/codeGen/StgCmmHpc.hs b/compiler/codeGen/StgCmmHpc.hs index 8bf1fbfbc3..e39a1013e3 100644 --- a/compiler/codeGen/StgCmmHpc.hs +++ b/compiler/codeGen/StgCmmHpc.hs @@ -32,7 +32,7 @@ mkTickBox mod n where tick_box = cmmIndex W64 (CmmLit $ CmmLabel $ mkHpcTicksLabel $ mod) - (fromIntegral n) + n initHpc :: Module -> HpcInfo -> FCode CmmAGraph -- Emit top-level tables for HPC and return code to initialise diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 3b69061426..21e55ee074 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -400,7 +400,7 @@ mkLiveness name size bits = let small_bits = case bits of [] -> 0 - [b] -> fromIntegral b + [b] -> b _ -> panic "livenessToAddrMode" in return (smallLiveness size small_bits) |