X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCgHpc.hs;fp=compiler%2FcodeGen%2FCgHpc.hs;h=d02c949b5ed7945e191ca0c6eaf4b065b19687c8;hp=3d300eda53d2279bc8b2f2f79f74049dfc758763;hb=e21c922fcdd1dac193bd8ff5670787daa3c21a12;hpb=2d367f855c3556166d24cf538d5c34d0ff596a2f

diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs
index 3d300ed..d02c949 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)