diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2011-07-18 16:29:57 +0100 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2011-07-18 16:31:18 +0100 |
| commit | a5c7f52ea72232144cca9292dcbf9de4618001df (patch) | |
| tree | e7c1b8e1f15f6d95dc1153566d5a62327382f473 /includes | |
| parent | 084b64f22717b203b8d8c2ab7c057fb747e39593 (diff) | |
| download | haskell-a5c7f52ea72232144cca9292dcbf9de4618001df.tar.gz | |
Sync EventLogFormat.h with ghc-events
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/EventLogFormat.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h index 67ce06afcd..925aec4ed1 100644 --- a/includes/rts/EventLogFormat.h +++ b/includes/rts/EventLogFormat.h @@ -140,20 +140,23 @@ #define EVENT_SPARK_STEAL 39 /* (victim_cap) */ #define EVENT_SPARK_FIZZLE 40 /* () */ #define EVENT_SPARK_GC 41 /* () */ +#define EVENT_INTERN_STRING 42 /* (string, id) {not used by ghc} */ -/* Range 42 - 59 is available for new events */ +/* Range 43 - 59 is available for new GHC and common events */ /* Range 60 - 80 is used by eden for parallel tracing * see http://www.mathematik.uni-marburg.de/~eden/ */ +/* Range 100 - 139 is reserved for Mercury */ + /* * The highest event code +1 that ghc itself emits. Note that some event * ranges higher than this are reserved but not currently emitted by ghc. * This must match the size of the EventDesc[] array in EventLog.c */ -#define NUM_EVENT_TAGS 42 +#define NUM_GHC_EVENT_TAGS 42 #if 0 /* DEPRECATED EVENTS: */ /* we don't actually need to record the thread, it's implicit */ |