diff options
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])) |