1 /* -----------------------------------------------------------------------------
3 * (c) The GHC Team, 2001
6 * Lag/Drag/Void profiling.
8 * ---------------------------------------------------------------------------*/
17 extern void LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p );
18 extern void LdvCensusForDead ( nat );
19 extern void LdvCensusKillAll ( void );
21 // Creates a 0-filled slop of size 'howManyBackwards' backwards from the
25 // 1) Hp is incremented and exceeds HpLim (in Updates.hc).
26 // 2) copypart() is called (in GC.c).
27 #define LDV_FILL_SLOP(from, howMany) \
30 for (i = 0;i < (howMany); i++) \
31 ((StgWord *)(from))[i] = 0; \
34 // Informs the LDV profiler that closure c has just been evacuated.
35 // Evacuated objects are no longer needed, so we just store its original size in
37 #define SET_EVACUAEE_FOR_LDV(c, size) \
40 #endif /* PROFILING */
42 #endif /* LDVPROFILE_H */