diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-12-02 22:30:58 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-12-02 22:30:58 +0000 |
| commit | 4fb390370051439c89958be96308d6d0577ff864 (patch) | |
| tree | 57a858398e4702dee497319b0053be47422c43a1 /includes | |
| parent | 9fd5a2ca9b5dda5b45af57cea7c8dc6f3dab422d (diff) | |
| parent | 1469f1eb7817fbc46b17e994498450a9a6b12ea7 (diff) | |
| download | haskell-4fb390370051439c89958be96308d6d0577ff864.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/prof/CCS.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h index 9737fc9c18..36404aaf91 100644 --- a/includes/rts/prof/CCS.h +++ b/includes/rts/prof/CCS.h @@ -34,6 +34,7 @@ typedef struct _CostCentre { char * label; char * module; + char * srcloc; // used for accumulating costs at the end of the run... StgWord time_ticks; @@ -203,11 +204,12 @@ extern CostCentreStack * RTS_VAR(CCS_LIST); // registered CCS list * Declaring Cost Centres & Cost Centre Stacks. * -------------------------------------------------------------------------- */ -# define CC_DECLARE(cc_ident,name,mod,caf,is_local) \ +# define CC_DECLARE(cc_ident,name,mod,loc,caf,is_local) \ is_local CostCentre cc_ident[1] \ = {{ ccID : 0, \ label : name, \ module : mod, \ + srcloc : loc, \ time_ticks : 0, \ mem_alloc : 0, \ link : 0, \ |