summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2022-03-21 16:51:24 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2022-04-01 10:35:41 +0100
commit3e6fe71b09fcaa6b0672f94ea33dc0a284bf9cce (patch)
tree9845872c7e757421cd2e5a54112af8a0ba0e3167
parent5beeff46972b8b52e9f2572fff8b1ad9ace38cd8 (diff)
downloadhaskell-3e6fe71b09fcaa6b0672f94ea33dc0a284bf9cce.tar.gz
Fix remaining issues in eventlog types (gen_event_types.py)
* The size of End concurrent mark phase looks wrong and, it used to be 4 and now it's 0. * The size of Task create is wrong, used to be 18 and now 14. * The event ticky-ticky entry counter begin sample has the wrong name * The event ticky-ticky entry counter being sample has the wrong size, was 0 now 32. Closes #21070
-rwxr-xr-xrts/gen_event_types.py7
1 files changed, 4 insertions, 3 deletions
diff --git a/rts/gen_event_types.py b/rts/gen_event_types.py
index 7bcdf4fe19..35c119ebf7 100755
--- a/rts/gen_event_types.py
+++ b/rts/gen_event_types.py
@@ -10,6 +10,7 @@ class FieldType:
VariableLength = None
ThreadId = FieldType('EventThreadID')
+KernelThreadId = FieldType('EventKernelThreadId')
CapNo = FieldType('EventCapNo')
CapsetType = FieldType('EventCapsetType')
Timestamp = FieldType('EventTimestamp')
@@ -84,12 +85,12 @@ event_types = [
EventType(47, 'CAP_DISABLE', [CapNo], 'Disable capability'),
EventType(48, 'CAP_ENABLE', [CapNo], 'Enable capability'),
EventType(49, 'HEAP_ALLOCATED', [CapsetId, Word64], 'Total heap memory ever allocated'),
- EventType(50, 'HEAP_SIZE', [CapsetId, Word64], 'Current heap size'),
+ EventType(50, 'HEAP_SIZE', [CapsetId, Word64], 'Current heap size (number of allocated mblocks)'),
EventType(51, 'HEAP_LIVE', [CapsetId, Word64], 'Current heap live data'),
EventType(52, 'HEAP_INFO_GHC', [CapsetId, Word16] + 4*[Word64], 'Heap static parameters'),
EventType(53, 'GC_STATS_GHC', [CapsetId, Word16] + 3*[Word64] + [Word32] + 3*[Word64], 'GC statistics'),
EventType(54, 'GC_GLOBAL_SYNC', [], 'Synchronise stop-the-world GC'),
- EventType(55, 'TASK_CREATE', [TaskId, CapNo, ThreadId], 'Task create'),
+ EventType(55, 'TASK_CREATE', [TaskId, CapNo, KernelThreadId], 'Task create'),
EventType(56, 'TASK_MIGRATE', [TaskId, CapNo, CapNo], 'Task migrate'),
EventType(57, 'TASK_DELETE', [TaskId], 'Task delete'),
EventType(58, 'USER_MARKER', VariableLength, 'User marker'),
@@ -124,7 +125,7 @@ event_types = [
# Non-moving GC
EventType(200, 'CONC_MARK_BEGIN', [], 'Begin concurrent mark phase'),
- EventType(201, 'CONC_MARK_END', [], 'End concurrent mark phase'),
+ EventType(201, 'CONC_MARK_END', [Word32], 'End concurrent mark phase'),
EventType(202, 'CONC_SYNC_BEGIN', [], 'Begin concurrent GC synchronisation'),
EventType(203, 'CONC_SYNC_END', [], 'End concurrent mark synchronisation'),
EventType(204, 'CONC_SWEEP_BEGIN', [], 'Begin concurrent sweep phase'),