projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Trac #1988; keep the ru_fn field of a RULE up to date
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgHpc.hs
diff --git
a/compiler/codeGen/CgHpc.hs
b/compiler/codeGen/CgHpc.hs
index
f44289d
..
516a9c7
100644
(file)
--- a/
compiler/codeGen/CgHpc.hs
+++ b/
compiler/codeGen/CgHpc.hs
@@
-31,6
+31,8
@@
import Char
import StaticFlags
import PackageConfig
import StaticFlags
import PackageConfig
+import Data.Word
+
cgTickBox :: Module -> Int -> Code
cgTickBox mod n = do
let tick_box = (cmmIndex I64
cgTickBox :: Module -> Int -> Code
cgTickBox mod n = do
let tick_box = (cmmIndex I64
@@
-77,8
+79,8
@@
initHpc this_mod (HpcInfo tickCount hashNo)
CCallConv
)
[ (mkLblExpr mkHpcModuleNameLabel,PtrHint)
CCallConv
)
[ (mkLblExpr mkHpcModuleNameLabel,PtrHint)
- , (CmmLit $ mkIntCLit tickCount,NoHint)
- , (CmmLit $ mkIntCLit hashNo,NoHint)
+ , (word32 tickCount, NoHint)
+ , (word32 hashNo, NoHint)
, (CmmLit $ CmmLabel $ mkHpcTicksLabel $ this_mod,PtrHint)
]
(Just [])
, (CmmLit $ CmmLabel $ mkHpcTicksLabel $ this_mod,PtrHint)
]
(Just [])
@@
-86,5
+88,6
@@
initHpc this_mod (HpcInfo tickCount hashNo)
CmmMayReturn
}
where
CmmMayReturn
}
where
+ word32 i = CmmLit (CmmInt (fromIntegral (fromIntegral i :: Word32)) I32)
mod_alloc = mkFastString "hs_hpc_module"
mod_alloc = mkFastString "hs_hpc_module"