1 /* ----------------------------------------------------------------------------
2 * $Id: StgTicky.h,v 1.16 2004/08/13 13:09:38 simonmar Exp $
4 * (c) The AQUA project, Glasgow University, 1994-1997
5 * (c) The GHC Team, 1998-1999
7 * Ticky-ticky profiling macros.
9 * -------------------------------------------------------------------------- */
14 /* -----------------------------------------------------------------------------
15 The StgEntCounter type - needed regardless of TICKY_TICKY
16 -------------------------------------------------------------------------- */
18 typedef struct _StgEntCounter {
19 StgWord16 registeredp; /* 0 == no, 1 == yes */
20 StgWord16 arity; /* arity (static info) */
21 StgWord16 stk_args; /* # of args off stack */
22 /* (rest of args are in registers) */
23 char *str; /* name of the thing */
24 char *arg_kinds; /* info about the args types */
25 StgInt entry_count; /* Trips to fast entry code */
26 StgInt allocs; /* number of allocations by this fun */
27 struct _StgEntCounter *link;/* link to chain them all together */
33 /* -----------------------------------------------------------------------------
35 -------------------------------------------------------------------------- */
37 /* How many times we do a heap check and move Hp; comparing this with
38 * the allocations gives an indication of how many things we get per trip
41 #define TICK_ALLOC_HEAP(n, f_ct) \
45 ALLOC_HEAP_tot += (n); \
48 #define TICK_ALLOC_HEAP_NOCTR(n) \
51 ALLOC_HEAP_tot += (n); \
54 /* We count things every time we allocate something in the dynamic heap.
55 * For each, we count the number of words of (1) ``admin'' (header),
56 * (2) good stuff (useful pointers and data), and (3) ``slop'' (extra
57 * space, to leave room for an old generation indirection for example).
59 * The first five macros are inserted when the compiler generates code
60 * to allocate something; the categories correspond to the @ClosureClass@
61 * datatype (manifest functions, thunks, constructors, big tuples, and
62 * partial applications).
65 #define _HS sizeofW(StgHeader)
67 #define TICK_ALLOC_FUN(g,s) \
68 ALLOC_FUN_ctr++; ALLOC_FUN_adm += _HS; \
69 ALLOC_FUN_gds += (g); ALLOC_FUN_slp += (s); \
70 TICK_ALLOC_HISTO(FUN,_HS,g,s)
72 #define TICK_ALLOC_UP_THK(g,s) \
73 ALLOC_UP_THK_ctr++; ALLOC_THK_adm += _HS; \
74 ALLOC_THK_gds += (g); ALLOC_THK_slp += (s); \
75 TICK_ALLOC_HISTO(THK,_HS,g,s)
77 #define TICK_ALLOC_SE_THK(g,s) \
78 ALLOC_SE_THK_ctr++; ALLOC_THK_adm += _HS; \
79 ALLOC_THK_gds += (g); ALLOC_THK_slp += (s); \
80 TICK_ALLOC_HISTO(THK,_HS,g,s)
82 #define TICK_ALLOC_CON(g,s) \
83 ALLOC_CON_ctr++; ALLOC_CON_adm += _HS; \
84 ALLOC_CON_gds += (g); ALLOC_CON_slp += (s); \
85 TICK_ALLOC_HISTO(CON,_HS,g,s)
87 #define TICK_ALLOC_TUP(g,s) \
88 ALLOC_TUP_ctr++; ALLOC_TUP_adm += _HS; \
89 ALLOC_TUP_gds += (g); ALLOC_TUP_slp += (s); \
90 TICK_ALLOC_HISTO(TUP,_HS,g,s)
92 #define TICK_ALLOC_BH(g,s) \
93 ALLOC_BH_ctr++; ALLOC_BH_adm += _HS; \
94 ALLOC_BH_gds += (g); ALLOC_BH_slp += (s); \
95 TICK_ALLOC_HISTO(BH,_HS,g,s)
97 // admin size doesn't take into account the FUN, that is accounted for
99 #define TICK_ALLOC_PAP(g,s) \
100 ALLOC_PAP_ctr++; ALLOC_PAP_adm += sizeofW(StgPAP)-1; \
101 ALLOC_PAP_gds += (g); ALLOC_PAP_slp += (s); \
102 TICK_ALLOC_HISTO(PAP,sizeofW(StgPAP)-1,g,s)
104 #define TICK_ALLOC_TSO(g,s) \
105 ALLOC_TSO_ctr++; ALLOC_TSO_adm += sizeofW(StgTSO); \
106 ALLOC_TSO_gds += (g); ALLOC_TSO_slp += (s); \
107 TICK_ALLOC_HISTO(TSO,sizeofW(StgTSO),g,s)
110 #define TICK_ALLOC_FMBQ(a,g,s) \
111 ALLOC_FMBQ_ctr++; ALLOC_FMBQ_adm += (a); \
112 ALLOC_FMBQ_gds += (g); ALLOC_FMBQ_slp += (s); \
113 TICK_ALLOC_HISTO(FMBQ,a,g,s)
115 #define TICK_ALLOC_FME(a,g,s) \
116 ALLOC_FME_ctr++; ALLOC_FME_adm += (a); \
117 ALLOC_FME_gds += (g); ALLOC_FME_slp += (s); \
118 TICK_ALLOC_HISTO(FME,a,g,s)
120 #define TICK_ALLOC_BF(a,g,s) \
121 ALLOC_BF_ctr++; ALLOC_BF_adm += (a); \
122 ALLOC_BF_gds += (g); ALLOC_BF_slp += (s); \
123 TICK_ALLOC_HISTO(BF,a,g,s)
126 /* The histogrammy bit is fairly straightforward; the -2 is: one for
127 * 0-origin C arrays; the other one because we do no one-word
128 * allocations, so we would never inc that histogram slot; so we shift
129 * everything over by one.
131 #define TICK_ALLOC_HISTO(categ,a,g,s) \
133 __idx = (a) + (g) + (s) - 2; \
134 ALLOC_##categ##_hst[((__idx > 4) ? 4 : __idx)] += 1;}
136 /* Some hard-to-account-for words are allocated by/for primitives,
137 * includes Integer support. ALLOC_PRIM2 tells us about these. We
138 * count everything as ``goods'', which is not strictly correct.
139 * (ALLOC_PRIM is the same sort of stuff, but we know the
140 * admin/goods/slop breakdown.)
142 #define TICK_ALLOC_PRIM(a,g,s) \
143 ALLOC_PRIM_ctr++; ALLOC_PRIM_adm += (a); \
144 ALLOC_PRIM_gds += (g); ALLOC_PRIM_slp += (s); \
145 TICK_ALLOC_HISTO(PRIM,a,g,s)
147 #define TICK_ALLOC_PRIM2(w) ALLOC_PRIM_ctr++; ALLOC_PRIM_gds +=(w); \
148 TICK_ALLOC_HISTO(PRIM,0,w,0)
151 /* -----------------------------------------------------------------------------
153 -------------------------------------------------------------------------- */
155 #define TICK_ENT_VIA_NODE() ENT_VIA_NODE_ctr++
157 #define TICK_ENT_STATIC_THK() ENT_STATIC_THK_ctr++
158 #define TICK_ENT_DYN_THK() ENT_DYN_THK_ctr++
160 #define TICK_CTR(f_ct, str, arity, args, arg_kinds) \
161 static StgEntCounter f_ct \
162 = { 0, arity, args, \
166 #define TICK_ENT_FUN_DIRECT_BODY(f_ct) \
168 if ( ! f_ct.registeredp ) { \
169 /* hook this one onto the front of the list */ \
170 f_ct.link = ticky_entry_ctrs; \
171 ticky_entry_ctrs = & (f_ct); \
172 /* mark it as "registered" */ \
173 f_ct.registeredp = 1; \
175 f_ct.entry_count += 1; \
178 #define TICK_ENT_STATIC_FUN_DIRECT(f_ct) \
179 TICK_ENT_FUN_DIRECT_BODY(f_ct) \
180 ENT_STATIC_FUN_DIRECT_ctr++ /* The static total one */
182 #define TICK_ENT_DYN_FUN_DIRECT(f_ct) \
183 TICK_ENT_FUN_DIRECT_BODY(f_ct) \
184 ENT_DYN_FUN_DIRECT_ctr++ /* The dynamic total one */
186 extern StgEntCounter top_ct;
187 extern StgEntCounter *ticky_entry_ctrs;
189 #define TICK_ENT_STATIC_CON(n) ENT_STATIC_CON_ctr++ /* enter static constructor */
190 #define TICK_ENT_DYN_CON(n) ENT_DYN_CON_ctr++ /* enter dynamic constructor */
191 #define TICK_ENT_STATIC_IND(n) ENT_STATIC_IND_ctr++ /* enter static indirection */
192 #define TICK_ENT_DYN_IND(n) ENT_DYN_IND_ctr++ /* enter dynamic indirection */
193 #define TICK_ENT_PERM_IND(n) ENT_PERM_IND_ctr++ /* enter permanent indirection */
194 #define TICK_ENT_PAP(n) ENT_PAP_ctr++ /* enter PAP */
195 #define TICK_ENT_AP(n) ENT_AP_ctr++ /* enter AP_UPD */
196 #define TICK_ENT_AP_STACK(n) ENT_AP_STACK_ctr++ /* enter AP_STACK_UPD */
197 #define TICK_ENT_BH() ENT_BH_ctr++ /* enter BLACKHOLE */
200 #define TICK_SLOW_HISTO(n) \
203 SLOW_CALL_hst[((__idx > 8) ? 8 : __idx)] += 1; \
206 #define UNDO_TICK_SLOW_HISTO(n) \
209 SLOW_CALL_hst[((__idx > 8) ? 8 : __idx)] -= 1; \
212 // A slow call with n arguments. In the unevald case, this call has
213 // already been counted once, so don't count it again.
214 #define TICK_SLOW_CALL(n) \
218 // This slow call was found to be to an unevaluated function; undo the
219 // ticks we did in TICK_SLOW_CALL.
220 #define TICK_SLOW_CALL_UNEVALD(n) \
221 SLOW_CALL_UNEVALD_ctr++; \
223 UNDO_TICK_SLOW_HISTO(n)
225 #define TICK_MULTI_CHUNK_SLOW_CALL(pattern, chunks) \
226 fprintf(stderr, "Multi-chunk slow call: %s\n", pattern); \
227 MULTI_CHUNK_SLOW_CALL_ctr++; \
228 MULTI_CHUNK_SLOW_CALL_CHUNKS_ctr += chunks;
230 // A completely unknown tail-call
231 #define TICK_UNKNOWN_CALL() UNKNOWN_CALL_ctr++
233 // slow call patterns (includes "extra" args to known calls,
234 // so the total of these will be greater than UNKNOWN_CALL_ctr).
235 #define TICK_SLOW_CALL_v() SLOW_CALL_v_ctr++
236 #define TICK_SLOW_CALL_f() SLOW_CALL_f_ctr++
237 #define TICK_SLOW_CALL_d() SLOW_CALL_d_ctr++
238 #define TICK_SLOW_CALL_l() SLOW_CALL_l_ctr++
239 #define TICK_SLOW_CALL_n() SLOW_CALL_n_ctr++
240 #define TICK_SLOW_CALL_p() SLOW_CALL_p_ctr++
241 #define TICK_SLOW_CALL_pv() SLOW_CALL_pv_ctr++
242 #define TICK_SLOW_CALL_pp() SLOW_CALL_pp_ctr++
243 #define TICK_SLOW_CALL_ppv() SLOW_CALL_ppv_ctr++
244 #define TICK_SLOW_CALL_ppp() SLOW_CALL_ppp_ctr++
245 #define TICK_SLOW_CALL_pppv() SLOW_CALL_pppv_ctr++
246 #define TICK_SLOW_CALL_pppp() SLOW_CALL_pppp_ctr++
247 #define TICK_SLOW_CALL_ppppp() SLOW_CALL_ppppp_ctr++
248 #define TICK_SLOW_CALL_pppppp() SLOW_CALL_pppppp_ctr++
249 #define TICK_SLOW_CALL_OTHER(pattern) \
250 fprintf(stderr,"slow call: %s\n", pattern); \
251 SLOW_CALL_OTHER_ctr++
253 #define TICK_KNOWN_CALL() KNOWN_CALL_ctr++
254 #define TICK_KNOWN_CALL_TOO_FEW_ARGS() KNOWN_CALL_TOO_FEW_ARGS_ctr++
255 #define TICK_KNOWN_CALL_EXTRA_ARGS() KNOWN_CALL_EXTRA_ARGS_ctr++
257 // A slow call to a FUN found insufficient arguments, and built a PAP
258 #define TICK_SLOW_CALL_FUN_TOO_FEW() SLOW_CALL_FUN_TOO_FEW_ctr++
259 #define TICK_SLOW_CALL_FUN_CORRECT() SLOW_CALL_FUN_CORRECT_ctr++
260 #define TICK_SLOW_CALL_FUN_TOO_MANY() SLOW_CALL_FUN_TOO_MANY_ctr++
261 #define TICK_SLOW_CALL_PAP_TOO_FEW() SLOW_CALL_PAP_TOO_FEW_ctr++
262 #define TICK_SLOW_CALL_PAP_CORRECT() SLOW_CALL_PAP_CORRECT_ctr++
263 #define TICK_SLOW_CALL_PAP_TOO_MANY() SLOW_CALL_PAP_TOO_MANY_ctr++
265 /* -----------------------------------------------------------------------------
267 -------------------------------------------------------------------------- */
269 #define TICK_RET_HISTO(categ,n) \
272 RET_##categ##_hst[((__idx > 8) ? 8 : __idx)] += 1;}
274 #define TICK_RET_NEW(n) RET_NEW_ctr++; \
275 TICK_RET_HISTO(NEW,n)
277 #define TICK_RET_OLD(n) RET_OLD_ctr++; \
278 TICK_RET_HISTO(OLD,n)
280 #define TICK_RET_UNBOXED_TUP(n) RET_UNBOXED_TUP_ctr++; \
281 TICK_RET_HISTO(UNBOXED_TUP,n)
283 #define TICK_VEC_RETURN(n) VEC_RETURN_ctr++; \
284 TICK_RET_HISTO(VEC_RETURN,n)
286 /* -----------------------------------------------------------------------------
290 ------------------ -------------------------------------------
291 TICK_UPDF_PUSHED Update frame pushed
292 TICK_CATCHF_PUSHED Catch frame pushed
293 TICK_UPDF_OMITTED A thunk decided not to push an update frame
294 TICK_UPDF_RCC_PUSHED Cost Centre restore frame pushed
295 TICK_UPDF_RCC_OMITTED Cost Centres not required -- not pushed
297 -------------------------------------------------------------------------- */
299 #define TICK_UPDF_OMITTED() UPDF_OMITTED_ctr++
300 #define TICK_UPDF_PUSHED(tgt,inf) UPDF_PUSHED_ctr++ \
301 /* ; fprintf(stderr,"UPDF_PUSHED:%p:%p\n",tgt,inf) */
302 #define TICK_CATCHF_PUSHED() CATCHF_PUSHED_ctr++
303 #define TICK_UPDF_RCC_PUSHED() UPDF_RCC_PUSHED_ctr++
304 #define TICK_UPDF_RCC_OMITTED() UPDF_RCC_OMITTED_ctr++
306 /* -----------------------------------------------------------------------------
309 These macros record information when we do an update. We always
310 update either with a data constructor (CON) or a partial application
315 ----------------------- --------------------------------------------
316 TICK_UPD_SQUEEZED Same as UPD_EXISTING but because
319 TICK_UPD_CON_IN_NEW Allocating a new CON
320 TICK_UPD_CON_IN_PLACE Updating with a PAP in place
321 TICK_UPD_PAP_IN_NEW Allocating a new PAP
322 TICK_UPD_PAP_IN_PLACE Updating with a PAP in place
324 ToDo: the IN_PLACE versions are not relevant any more.
325 -------------------------------------------------------------------------- */
327 #define TICK_UPD_HISTO(categ,n) \
330 UPD_##categ##_hst[((__idx > 8) ? 8 : __idx)] += 1;}
332 #define TICK_UPD_SQUEEZED() UPD_SQUEEZED_ctr++
334 #define TICK_UPD_CON_IN_NEW(n) UPD_CON_IN_NEW_ctr++ ; \
335 TICK_UPD_HISTO(CON_IN_NEW,n)
337 #define TICK_UPD_CON_IN_PLACE(n) UPD_CON_IN_PLACE_ctr++; \
338 TICK_UPD_HISTO(CON_IN_PLACE,n)
340 #define TICK_UPD_PAP_IN_NEW(n) UPD_PAP_IN_NEW_ctr++ ; \
341 TICK_UPD_HISTO(PAP_IN_NEW,n)
343 #define TICK_UPD_PAP_IN_PLACE() UPD_PAP_IN_PLACE_ctr++
345 /* For the generational collector:
347 #define TICK_UPD_NEW_IND() UPD_NEW_IND_ctr++
348 #define TICK_UPD_NEW_PERM_IND(tgt) UPD_NEW_PERM_IND_ctr++ \
349 /* ; fprintf(stderr,"UPD_NEW_PERM:%p\n",tgt) */
350 #define TICK_UPD_OLD_IND() UPD_OLD_IND_ctr++
351 #define TICK_UPD_OLD_PERM_IND() UPD_OLD_PERM_IND_ctr++
355 #define TICK_UPD_BH_UPDATABLE() UPD_BH_UPDATABLE_ctr++
356 #define TICK_UPD_BH_SINGLE_ENTRY() UPD_BH_SINGLE_ENTRY_ctr++
357 #define TICK_UPD_CAF_BH_UPDATABLE(s) \
358 UPD_CAF_BH_UPDATABLE_ctr++ \
359 /* ; fprintf(stderr,"TICK_UPD_CAF_BH_UPDATABLE(%s)\n",s) */
360 #define TICK_UPD_CAF_BH_SINGLE_ENTRY(s) \
361 UPD_CAF_BH_SINGLE_ENTRY_ctr++ \
362 /* ; fprintf(stderr,"TICK_UPD_CAF_BH_SINGLE_ENTRY(%s)\n",s) */
365 /* -----------------------------------------------------------------------------
366 Garbage collection counters
367 -------------------------------------------------------------------------- */
371 * GC_SEL_ABANDONED: we could've done the selection, but we gave up
372 * (e.g., to avoid overflowing the C stack); GC_SEL_MINOR: did a
373 * selection in a minor GC; GC_SEL_MAJOR: ditto, but major GC.
375 #define TICK_GC_SEL_ABANDONED() GC_SEL_ABANDONED_ctr++
376 #define TICK_GC_SEL_MINOR() GC_SEL_MINOR_ctr++
377 #define TICK_GC_SEL_MAJOR() GC_SEL_MAJOR_ctr++
379 /* Failed promotion: we wanted to promote an object early, but
380 * it had already been evacuated to (or resided in) a younger
383 #define TICK_GC_FAILED_PROMOTION() GC_FAILED_PROMOTION_ctr++
385 /* Bytes copied: this is a fairly good measure of GC cost and depends
386 * on all sorts of things like number of generations, aging, eager
387 * promotion, generation sizing policy etc.
389 #define TICK_GC_WORDS_COPIED(n) GC_WORDS_COPIED_ctr+=(n)
391 /* -----------------------------------------------------------------------------
392 The accumulators (extern decls)
393 -------------------------------------------------------------------------- */
396 #define INIT(ializer) = ializer
399 #define INIT(ializer)
400 #define EXTERN extern
403 EXTERN unsigned long ALLOC_HEAP_ctr INIT(0);
404 EXTERN unsigned long ALLOC_HEAP_tot INIT(0);
406 EXTERN unsigned long ALLOC_FUN_ctr INIT(0);
407 EXTERN unsigned long ALLOC_FUN_adm INIT(0);
408 EXTERN unsigned long ALLOC_FUN_gds INIT(0);
409 EXTERN unsigned long ALLOC_FUN_slp INIT(0);
410 EXTERN unsigned long ALLOC_FUN_hst[5]
412 = {0,0,0,0,0} /* urk, can't use INIT macro 'cause of the commas */
416 EXTERN unsigned long ALLOC_UP_THK_ctr INIT(0);
417 EXTERN unsigned long ALLOC_SE_THK_ctr INIT(0);
418 EXTERN unsigned long ALLOC_THK_adm INIT(0);
419 EXTERN unsigned long ALLOC_THK_gds INIT(0);
420 EXTERN unsigned long ALLOC_THK_slp INIT(0);
421 EXTERN unsigned long ALLOC_THK_hst[5]
427 EXTERN unsigned long ALLOC_CON_ctr INIT(0);
428 EXTERN unsigned long ALLOC_CON_adm INIT(0);
429 EXTERN unsigned long ALLOC_CON_gds INIT(0);
430 EXTERN unsigned long ALLOC_CON_slp INIT(0);
431 EXTERN unsigned long ALLOC_CON_hst[5]
437 EXTERN unsigned long ALLOC_TUP_ctr INIT(0);
438 EXTERN unsigned long ALLOC_TUP_adm INIT(0);
439 EXTERN unsigned long ALLOC_TUP_gds INIT(0);
440 EXTERN unsigned long ALLOC_TUP_slp INIT(0);
441 EXTERN unsigned long ALLOC_TUP_hst[5]
447 EXTERN unsigned long ALLOC_BH_ctr INIT(0);
448 EXTERN unsigned long ALLOC_BH_adm INIT(0);
449 EXTERN unsigned long ALLOC_BH_gds INIT(0);
450 EXTERN unsigned long ALLOC_BH_slp INIT(0);
451 EXTERN unsigned long ALLOC_BH_hst[5]
457 EXTERN unsigned long ALLOC_PRIM_ctr INIT(0);
458 EXTERN unsigned long ALLOC_PRIM_adm INIT(0);
459 EXTERN unsigned long ALLOC_PRIM_gds INIT(0);
460 EXTERN unsigned long ALLOC_PRIM_slp INIT(0);
461 EXTERN unsigned long ALLOC_PRIM_hst[5]
467 EXTERN unsigned long ALLOC_PAP_ctr INIT(0);
468 EXTERN unsigned long ALLOC_PAP_adm INIT(0);
469 EXTERN unsigned long ALLOC_PAP_gds INIT(0);
470 EXTERN unsigned long ALLOC_PAP_slp INIT(0);
471 EXTERN unsigned long ALLOC_PAP_hst[5]
477 EXTERN unsigned long ALLOC_TSO_ctr INIT(0);
478 EXTERN unsigned long ALLOC_TSO_adm INIT(0);
479 EXTERN unsigned long ALLOC_TSO_gds INIT(0);
480 EXTERN unsigned long ALLOC_TSO_slp INIT(0);
481 EXTERN unsigned long ALLOC_TSO_hst[5]
488 EXTERN unsigned long ALLOC_FMBQ_ctr INIT(0);
489 EXTERN unsigned long ALLOC_FMBQ_adm INIT(0);
490 EXTERN unsigned long ALLOC_FMBQ_gds INIT(0);
491 EXTERN unsigned long ALLOC_FMBQ_slp INIT(0);
492 EXTERN unsigned long ALLOC_FMBQ_hst[5]
498 EXTERN unsigned long ALLOC_FME_ctr INIT(0);
499 EXTERN unsigned long ALLOC_FME_adm INIT(0);
500 EXTERN unsigned long ALLOC_FME_gds INIT(0);
501 EXTERN unsigned long ALLOC_FME_slp INIT(0);
502 EXTERN unsigned long ALLOC_FME_hst[5]
508 EXTERN unsigned long ALLOC_BF_ctr INIT(0);
509 EXTERN unsigned long ALLOC_BF_adm INIT(0);
510 EXTERN unsigned long ALLOC_BF_gds INIT(0);
511 EXTERN unsigned long ALLOC_BF_slp INIT(0);
512 EXTERN unsigned long ALLOC_BF_hst[5]
519 EXTERN unsigned long ENT_VIA_NODE_ctr INIT(0);
520 EXTERN unsigned long ENT_STATIC_THK_ctr INIT(0);
521 EXTERN unsigned long ENT_DYN_THK_ctr INIT(0);
522 EXTERN unsigned long ENT_STATIC_FUN_DIRECT_ctr INIT(0);
523 EXTERN unsigned long ENT_DYN_FUN_DIRECT_ctr INIT(0);
524 EXTERN unsigned long ENT_STATIC_CON_ctr INIT(0);
525 EXTERN unsigned long ENT_DYN_CON_ctr INIT(0);
526 EXTERN unsigned long ENT_STATIC_IND_ctr INIT(0);
527 EXTERN unsigned long ENT_DYN_IND_ctr INIT(0);
528 EXTERN unsigned long ENT_PERM_IND_ctr INIT(0);
529 EXTERN unsigned long ENT_PAP_ctr INIT(0);
530 EXTERN unsigned long ENT_AP_ctr INIT(0);
531 EXTERN unsigned long ENT_AP_STACK_ctr INIT(0);
532 EXTERN unsigned long ENT_BH_ctr INIT(0);
534 EXTERN unsigned long UNKNOWN_CALL_ctr INIT(0);
536 EXTERN unsigned long SLOW_CALL_v_ctr INIT(0);
537 EXTERN unsigned long SLOW_CALL_f_ctr INIT(0);
538 EXTERN unsigned long SLOW_CALL_d_ctr INIT(0);
539 EXTERN unsigned long SLOW_CALL_l_ctr INIT(0);
540 EXTERN unsigned long SLOW_CALL_n_ctr INIT(0);
541 EXTERN unsigned long SLOW_CALL_p_ctr INIT(0);
542 EXTERN unsigned long SLOW_CALL_pv_ctr INIT(0);
543 EXTERN unsigned long SLOW_CALL_pp_ctr INIT(0);
544 EXTERN unsigned long SLOW_CALL_ppv_ctr INIT(0);
545 EXTERN unsigned long SLOW_CALL_ppp_ctr INIT(0);
546 EXTERN unsigned long SLOW_CALL_pppv_ctr INIT(0);
547 EXTERN unsigned long SLOW_CALL_pppp_ctr INIT(0);
548 EXTERN unsigned long SLOW_CALL_ppppp_ctr INIT(0);
549 EXTERN unsigned long SLOW_CALL_pppppp_ctr INIT(0);
550 EXTERN unsigned long SLOW_CALL_OTHER_ctr INIT(0);
552 EXTERN unsigned long ticky_slow_call_unevald INIT(0);
553 EXTERN unsigned long SLOW_CALL_ctr INIT(0);
554 EXTERN unsigned long MULTI_CHUNK_SLOW_CALL_ctr INIT(0);
555 EXTERN unsigned long MULTI_CHUNK_SLOW_CALL_CHUNKS_ctr INIT(0);
556 EXTERN unsigned long KNOWN_CALL_ctr INIT(0);
557 EXTERN unsigned long KNOWN_CALL_TOO_FEW_ARGS_ctr INIT(0);
558 EXTERN unsigned long KNOWN_CALL_EXTRA_ARGS_ctr INIT(0);
559 EXTERN unsigned long SLOW_CALL_FUN_TOO_FEW_ctr INIT(0);
560 EXTERN unsigned long SLOW_CALL_FUN_CORRECT_ctr INIT(0);
561 EXTERN unsigned long SLOW_CALL_FUN_TOO_MANY_ctr INIT(0);
562 EXTERN unsigned long SLOW_CALL_PAP_TOO_FEW_ctr INIT(0);
563 EXTERN unsigned long SLOW_CALL_PAP_CORRECT_ctr INIT(0);
564 EXTERN unsigned long SLOW_CALL_PAP_TOO_MANY_ctr INIT(0);
565 EXTERN unsigned long SLOW_CALL_UNEVALD_ctr INIT(0);
567 EXTERN unsigned long SLOW_CALL_hst[8]
573 EXTERN unsigned long RET_NEW_ctr INIT(0);
574 EXTERN unsigned long RET_OLD_ctr INIT(0);
575 EXTERN unsigned long RET_UNBOXED_TUP_ctr INIT(0);
577 EXTERN unsigned long VEC_RETURN_ctr INIT(0);
579 EXTERN unsigned long RET_NEW_hst[9]
581 = {0,0,0,0,0,0,0,0,0}
584 EXTERN unsigned long RET_OLD_hst[9]
586 = {0,0,0,0,0,0,0,0,0}
589 EXTERN unsigned long RET_UNBOXED_TUP_hst[9]
591 = {0,0,0,0,0,0,0,0,0}
594 EXTERN unsigned long RET_SEMI_IN_HEAP_hst[9]
596 = {0,0,0,0,0,0,0,0,0}
599 EXTERN unsigned long RET_VEC_RETURN_hst[9]
601 = {0,0,0,0,0,0,0,0,0}
605 EXTERN unsigned long RET_SEMI_loads_avoided INIT(0);
607 EXTERN unsigned long UPDF_OMITTED_ctr INIT(0);
608 EXTERN unsigned long UPDF_PUSHED_ctr INIT(0);
609 EXTERN unsigned long CATCHF_PUSHED_ctr INIT(0);
610 EXTERN unsigned long UPDF_RCC_PUSHED_ctr INIT(0);
611 EXTERN unsigned long UPDF_RCC_OMITTED_ctr INIT(0);
613 EXTERN unsigned long UPD_SQUEEZED_ctr INIT(0);
614 EXTERN unsigned long UPD_CON_IN_NEW_ctr INIT(0);
615 EXTERN unsigned long UPD_CON_IN_PLACE_ctr INIT(0);
616 EXTERN unsigned long UPD_PAP_IN_NEW_ctr INIT(0);
617 EXTERN unsigned long UPD_PAP_IN_PLACE_ctr INIT(0);
619 EXTERN unsigned long UPD_CON_IN_NEW_hst[9]
621 = {0,0,0,0,0,0,0,0,0}
624 EXTERN unsigned long UPD_CON_IN_PLACE_hst[9]
626 = {0,0,0,0,0,0,0,0,0}
629 EXTERN unsigned long UPD_PAP_IN_NEW_hst[9]
631 = {0,0,0,0,0,0,0,0,0}
635 EXTERN unsigned long UPD_NEW_IND_ctr INIT(0);
636 EXTERN unsigned long UPD_NEW_PERM_IND_ctr INIT(0);
637 EXTERN unsigned long UPD_OLD_IND_ctr INIT(0);
638 EXTERN unsigned long UPD_OLD_PERM_IND_ctr INIT(0);
640 EXTERN unsigned long UPD_BH_UPDATABLE_ctr INIT(0);
641 EXTERN unsigned long UPD_BH_SINGLE_ENTRY_ctr INIT(0);
642 EXTERN unsigned long UPD_CAF_BH_UPDATABLE_ctr INIT(0);
643 EXTERN unsigned long UPD_CAF_BH_SINGLE_ENTRY_ctr INIT(0);
645 EXTERN unsigned long GC_SEL_ABANDONED_ctr INIT(0);
646 EXTERN unsigned long GC_SEL_MINOR_ctr INIT(0);
647 EXTERN unsigned long GC_SEL_MAJOR_ctr INIT(0);
649 EXTERN unsigned long GC_FAILED_PROMOTION_ctr INIT(0);
651 EXTERN unsigned long GC_WORDS_COPIED_ctr INIT(0);
656 /* -----------------------------------------------------------------------------
657 Just stubs if no ticky-ticky profiling
658 -------------------------------------------------------------------------- */
660 #else /* !TICKY_TICKY */
662 #define TICK_ALLOC_HEAP(words, f_ct)
663 #define TICK_ALLOC_HEAP_NOCTR(words)
665 #define TICK_ALLOC_FUN(g,s)
666 #define TICK_ALLOC_UP_THK(g,s)
667 #define TICK_ALLOC_SE_THK(g,s)
668 #define TICK_ALLOC_CON(g,s)
669 #define TICK_ALLOC_TUP(g,s)
670 #define TICK_ALLOC_BH(g,s)
671 #define TICK_ALLOC_PAP(g,s)
672 #define TICK_ALLOC_TSO(g,s)
673 #define TICK_ALLOC_FMBQ(a,g,s)
674 #define TICK_ALLOC_FME(a,g,s)
675 #define TICK_ALLOC_BF(a,g,s)
676 #define TICK_ALLOC_PRIM(a,g,s)
677 #define TICK_ALLOC_PRIM2(w)
679 #define TICK_ENT_VIA_NODE()
681 #define TICK_ENT_STATIC_THK()
682 #define TICK_ENT_DYN_THK()
683 #define TICK_ENT_STATIC_FUN_DIRECT(n)
684 #define TICK_ENT_DYN_FUN_DIRECT(n)
685 #define TICK_ENT_STATIC_CON(n)
686 #define TICK_ENT_DYN_CON(n)
687 #define TICK_ENT_STATIC_IND(n)
688 #define TICK_ENT_DYN_IND(n)
689 #define TICK_ENT_PERM_IND(n)
690 #define TICK_ENT_PAP(n)
691 #define TICK_ENT_AP(n)
692 #define TICK_ENT_AP_STACK(n)
693 #define TICK_ENT_BH()
695 #define TICK_SLOW_CALL(n)
696 #define TICK_SLOW_CALL_UNEVALD(n)
697 #define TICK_SLOW_CALL_FUN_TOO_FEW()
698 #define TICK_SLOW_CALL_FUN_CORRECT()
699 #define TICK_SLOW_CALL_FUN_TOO_MANY()
700 #define TICK_SLOW_CALL_PAP_TOO_FEW()
701 #define TICK_SLOW_CALL_PAP_CORRECT()
702 #define TICK_SLOW_CALL_PAP_TOO_MANY()
704 #define TICK_SLOW_CALL_v()
705 #define TICK_SLOW_CALL_f()
706 #define TICK_SLOW_CALL_d()
707 #define TICK_SLOW_CALL_l()
708 #define TICK_SLOW_CALL_n()
709 #define TICK_SLOW_CALL_p()
710 #define TICK_SLOW_CALL_pv()
711 #define TICK_SLOW_CALL_pp()
712 #define TICK_SLOW_CALL_ppv()
713 #define TICK_SLOW_CALL_ppp()
714 #define TICK_SLOW_CALL_pppv()
715 #define TICK_SLOW_CALL_pppp()
716 #define TICK_SLOW_CALL_ppppp()
717 #define TICK_SLOW_CALL_pppppp()
718 #define TICK_SLOW_CALL_OTHER(pattern)
720 #define TICK_KNOWN_CALL()
721 #define TICK_KNOWN_CALL_TOO_FEW_ARGS()
722 #define TICK_KNOWN_CALL_EXTRA_ARGS()
723 #define TICK_UNKNOWN_CALL()
725 #define TICK_RET_NEW(n)
726 #define TICK_RET_OLD(n)
727 #define TICK_RET_UNBOXED_TUP(n)
728 #define TICK_RET_SEMI(n)
729 #define TICK_RET_SEMI_BY_DEFAULT()
730 #define TICK_RET_SEMI_FAILED(tag)
731 #define TICK_VEC_RETURN(n)
733 #define TICK_UPDF_OMITTED()
734 #define TICK_UPDF_PUSHED(tgt,inf)
735 #define TICK_CATCHF_PUSHED()
736 #define TICK_UPDF_RCC_PUSHED()
737 #define TICK_UPDF_RCC_OMITTED()
739 #define TICK_UPD_SQUEEZED()
740 #define TICK_UPD_CON_IN_NEW(n)
741 #define TICK_UPD_CON_IN_PLACE(n)
742 #define TICK_UPD_PAP_IN_NEW(n)
743 #define TICK_UPD_PAP_IN_PLACE()
745 #define TICK_UPD_NEW_IND()
746 #define TICK_UPD_NEW_PERM_IND(tgt)
747 #define TICK_UPD_OLD_IND()
748 #define TICK_UPD_OLD_PERM_IND()
750 #define TICK_UPD_BH_UPDATABLE()
751 #define TICK_UPD_BH_SINGLE_ENTRY()
752 #define TICK_UPD_CAF_BH_UPDATABLE()
753 #define TICK_UPD_CAF_BH_SINGLE_ENTRY()
755 #define TICK_GC_SEL_ABANDONED()
756 #define TICK_GC_SEL_MINOR()
757 #define TICK_GC_SEL_MAJOR()
759 #define TICK_GC_FAILED_PROMOTION()
760 #define TICK_GC_WORDS_COPIED(n)
762 #endif /* !TICKY_TICKY */