diff options
| author | simonmar <unknown> | 1999-09-14 12:16:39 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-09-14 12:16:39 +0000 |
| commit | 8e346b863084d46a87251cae1d8a71de7bf1fd0f (patch) | |
| tree | 365656adbb220feeecd6d34ddc665e1aff31c464 /ghc/compiler/codeGen | |
| parent | 94617c5eb8d6077625a5ac261239fb1ed9b2804f (diff) | |
| download | haskell-8e346b863084d46a87251cae1d8a71de7bf1fd0f.tar.gz | |
[project @ 1999-09-14 12:16:36 by simonmar]
A couple of fixes and cleanups to ticky-ticky profiling:
- remove UPD_EXISTING (doesn't make sense)
- add UPD_CON_IN_PLACE, now that we have in-place updates
- clean up the output a little.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgCon.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs index 5ab41b1cea..5fa258b359 100644 --- a/ghc/compiler/codeGen/CgCon.lhs +++ b/ghc/compiler/codeGen/CgCon.lhs @@ -328,6 +328,10 @@ cgReturnDataCon con amodes all_zero_size_args uniq = getUnique con temp = CTemp uniq PtrRep in + + profCtrC SLIT("TICK_UPD_CON_IN_PLACE") + [mkIntCLit (length amodes)] `thenC` + getSpRelOffset args_sp `thenFC` \ sp_rel -> absC (CAssign temp (CMacroExpr PtrRep UPD_FRAME_UPDATEE [CAddr sp_rel])) |