[project @ 1999-09-14 12:16:36 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgCon.lhs

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 5ab41b1..5fa258b 100644 (file)
--- 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]))