diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-10-15 10:02:12 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-10-15 10:02:12 +0000 |
| commit | 1f56fae4a10f7fb56b8fbab5ab9ad95add1ed1dd (patch) | |
| tree | 03ed9129c79b2816dc8f89de56c5711a640c6139 /includes | |
| parent | d46df548da44cff511cd0d656a1ec92c4551d653 (diff) | |
| download | haskell-1f56fae4a10f7fb56b8fbab5ab9ad95add1ed1dd.tar.gz | |
Add events to show when GC threads are idle/working
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/EventLogFormat.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h index eaad0f234a..ced4d107b1 100644 --- a/includes/rts/EventLogFormat.h +++ b/includes/rts/EventLogFormat.h @@ -117,8 +117,11 @@ #define EVENT_STARTUP 17 /* (num_capabilities) */ #define EVENT_BLOCK_MARKER 18 /* (size, end_time, capability) */ #define EVENT_USER_MSG 19 /* (message ...) */ +#define EVENT_GC_IDLE 20 /* () */ +#define EVENT_GC_WORK 21 /* () */ +#define EVENT_GC_DONE 22 /* () */ -#define NUM_EVENT_TAGS 20 +#define NUM_EVENT_TAGS 23 #if 0 /* DEPRECATED EVENTS: */ #define EVENT_CREATE_SPARK 13 /* (cap, thread) */ |