From da5ff10503e683e2148c62e36f8fe2f819328862 Mon Sep 17 00:00:00 2001 From: Andreas Klebinger Date: Tue, 21 Jun 2022 17:04:12 +0200 Subject: Ticky:Make json info a separate field. --- rts/eventlog/EventLog.c | 3 ++- rts/include/rts/Ticky.h | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'rts') diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index ba05f31591..d2e99a4b3e 100644 --- a/rts/eventlog/EventLog.c +++ b/rts/eventlog/EventLog.c @@ -1355,7 +1355,7 @@ void postProfBegin(void) #if defined(TICKY_TICKY) static void postTickyCounterDef(EventsBuf *eb, StgEntCounter *p) { - StgWord len = 8 + 2 + strlen(p->arg_kinds)+1 + strlen(p->str)+1 + 8; + StgWord len = 8 + 2 + strlen(p->arg_kinds)+1 + strlen(p->ticky_json)+1 + strlen(p->str)+1 + 8; ensureRoomForVariableEvent(eb, len); postEventHeader(eb, EVENT_TICKY_COUNTER_DEF); postPayloadSize(eb, len); @@ -1363,6 +1363,7 @@ static void postTickyCounterDef(EventsBuf *eb, StgEntCounter *p) postWord64(eb, (uint64_t)((uintptr_t) p)); postWord16(eb, (uint16_t) p->arity); postString(eb, p->arg_kinds); + postString(eb, p->ticky_json); postString(eb, p->str); postWord64(eb, (W_) (INFO_PTR_TO_STRUCT(p->info))); } diff --git a/rts/include/rts/Ticky.h b/rts/include/rts/Ticky.h index 7658e3c08a..4d58c8e63a 100644 --- a/rts/include/rts/Ticky.h +++ b/rts/include/rts/Ticky.h @@ -26,6 +26,7 @@ typedef struct _StgEntCounter { /* (rest of args are in registers) */ char *str; /* name of the thing */ char *arg_kinds; /* info about the args types */ + char *ticky_json; /* json_info for eventlog mostly describing the tick */ StgInfoTable *info; /* Info table corresponding to this closure */ StgInt entry_count; /* Trips to fast entry code */ StgInt allocs; /* number of allocations by this fun */ -- cgit v1.2.1