blob: af56d0cb62a76d7a5f83ef39c29547ff9eb2ef5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/* -----------------------------------------------------------------------------
*
* User-overridable RTS hooks.
*
* ---------------------------------------------------------------------------*/
#include "rts/PosixSource.h"
#include "Rts.h"
#include "sm/GC.h"
#include "sm/GCThread.h"
#include "Hooks.h"
/*
* Called when --long-gc-sync=<time> has expired during a GC sync. The idea is
* that you can set a breakpoint on this function in gdb and try to determine
* which thread was holding up the GC sync.
*/
void LongGCSync (uint32_t me USED_IF_THREADS, Time t STG_UNUSED)
{
#if defined(THREADED_RTS)
{
uint32_t i;
for (i=0; i < n_capabilities; i++) {
if (i != me && SEQ_CST_LOAD(&gc_threads[i]->wakeup) == GC_THREAD_STANDING_BY) {
debugBelch("Warning: slow GC sync: still waiting for cap %d\n",
i);
}
}
}
#endif
}
/*
* Called at the end of a GC sync which was longer than --long-gc-sync=<time>.
* The idea is that you can use this function to log stats about the length of
* GC syncs.
*/
void LongGCSyncEnd (Time t)
{
debugBelch("Warning: waited %" FMT_Word64 "us for GC sync\n", TimeToUS(t));
}
|
