diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-25 13:43:07 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-25 13:43:07 +0000 |
| commit | 7fe8af767efbe7f063e5da7512961bb2edf50de0 (patch) | |
| tree | 2191c8526fbf720eefaf3d3c1cd8cdf9545466fd /rts/Ticky.c | |
| parent | 0edaca4834b511ac2c58fea3734a75cc52ac5c50 (diff) | |
| download | haskell-7fe8af767efbe7f063e5da7512961bb2edf50de0.tar.gz | |
Comment out some unused code in Ticky.c
Diffstat (limited to 'rts/Ticky.c')
| -rw-r--r-- | rts/Ticky.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/rts/Ticky.c b/rts/Ticky.c index 2cd3740def..aa7d1e4332 100644 --- a/rts/Ticky.c +++ b/rts/Ticky.c @@ -30,8 +30,11 @@ static void printRegisteredCounterInfo (FILE *); /* fwd decl */ void PrintTickyInfo(void) { - unsigned long i; + // XXX This is only used in commented out or #if FALSE'd out code currently: + // unsigned long i; +/* XXX These are used only in an #if FALSE block below */ +#if FALSE unsigned long tot_allocs = /* total number of things allocated */ ALLOC_FUN_ctr + ALLOC_SE_THK_ctr + ALLOC_UP_THK_ctr + ALLOC_CON_ctr + ALLOC_TUP_ctr + + ALLOC_TSO_ctr + ALLOC_BH_ctr + ALLOC_PAP_ctr + ALLOC_PRIM_ctr @@ -66,6 +69,7 @@ PrintTickyInfo(void) unsigned long tot_wds = /* total words */ tot_adm_wds + tot_gds_wds + tot_slp_wds; +#endif unsigned long tot_thk_enters = ENT_STATIC_THK_ctr + ENT_DYN_THK_ctr; unsigned long tot_con_enters = ENT_STATIC_CON_ctr + ENT_DYN_CON_ctr; @@ -76,10 +80,13 @@ PrintTickyInfo(void) // This is the number of times we entered a function via some kind // of slow call. It amounts to all the slow applications, not // counting those that were to too few arguments. + /* + XXX This us unused - can we delete it? -- IGL 2008-04-25 unsigned long tot_fun_slow_enters = SLOW_CALL_ctr - SLOW_CALL_FUN_TOO_FEW_ctr - SLOW_CALL_PAP_TOO_FEW_ctr; + */ unsigned long tot_known_calls = KNOWN_CALL_ctr + KNOWN_CALL_TOO_FEW_ARGS_ctr + |