EXTERN StgInt GC_FAILED_PROMOTION_ctr INIT(0);
-EXTERN StgInt GC_WORDS_COPIED_ctr INIT(0);
-
EXTERN StgInt ALLOC_UP_THK_ctr INIT(0);
EXTERN StgInt ALLOC_SE_THK_ctr INIT(0);
EXTERN StgInt ALLOC_THK_adm INIT(0);
#define TICK_UPD_NEW_IND()
#define TICK_UPD_SQUEEZED()
#define TICK_ALLOC_HEAP_NOCTR(x)
-#define TICK_GC_WORDS_COPIED(x)
#define TICK_GC_FAILED_PROMOTION()
#define TICK_ALLOC_TSO(g,s)
#define TICK_ALLOC_UP_THK(g,s)
PC(INTAVG(tot_old_updates,tot_gengc_updates)));
}
- fprintf(tf,"\nTotal bytes copied during GC: %ld\n",
- GC_WORDS_COPIED_ctr * sizeof(W_));
-
printRegisteredCounterInfo(tf);
fprintf(tf,"\n**************************************************\n");
PR_CTR(GC_SEL_MINOR_ctr);
PR_CTR(GC_SEL_MAJOR_ctr);
PR_CTR(GC_FAILED_PROMOTION_ctr);
- PR_CTR(GC_WORDS_COPIED_ctr);
}
/* To print out all the registered-counter info: */
to = alloc_for_copy(size,stp);
- TICK_GC_WORDS_COPIED(size);
-
from = (StgPtr)src;
to[0] = (W_)info;
for (i = 1; i < size; i++) { // unroll for small i
*p = TAG_CLOSURE(tag,(StgClosure*)to);
src->header.info = (const StgInfoTable *)MK_FORWARDING_PTR(to);
- TICK_GC_WORDS_COPIED(size);
-
from = (StgPtr)src;
to[0] = (W_)info;
for (i = 1; i < size; i++) { // unroll for small i
to = alloc_for_copy(size_to_reserve, stp);
*p = (StgClosure *)to;
- TICK_GC_WORDS_COPIED(size_to_copy);
-
from = (StgPtr)src;
to[0] = info;
for (i = 1; i < size_to_copy; i++) { // unroll for small i