diff options
| -rw-r--r-- | rts/eventlog/EventLog.c | 2 | ||||
| -rw-r--r-- | rts/include/rts/IPE.h | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index 9b10666768..53d5e28a61 100644 --- a/rts/eventlog/EventLog.c +++ b/rts/eventlog/EventLog.c @@ -1429,7 +1429,7 @@ void postIPE(const InfoProvEnt *ipe) ensureRoomForVariableEvent(&eventBuf, len); postEventHeader(&eventBuf, EVENT_IPE); postPayloadSize(&eventBuf, len); - postWord64(&eventBuf, (StgWord) ipe->info); + postWord64(&eventBuf, (StgWord) INFO_PTR_TO_STRUCT(ipe->info)); postString(&eventBuf, ipe->prov.table_name); postString(&eventBuf, ipe->prov.closure_desc); postString(&eventBuf, ipe->prov.ty_desc); diff --git a/rts/include/rts/IPE.h b/rts/include/rts/IPE.h index 4d83629a58..f6d3607d1b 100644 --- a/rts/include/rts/IPE.h +++ b/rts/include/rts/IPE.h @@ -24,6 +24,8 @@ typedef struct InfoProv_ { } InfoProv; typedef struct InfoProvEnt_ { + // When TNTC is enabled this will point to the entry code + // not the info table itself. const StgInfoTable *info; InfoProv prov; } InfoProvEnt; @@ -50,6 +52,8 @@ typedef uint32_t StringIdx; // The size of this must be a multiple of the word size // to ensure correct packing. typedef struct { + // When TNTC is enabled this will point to the entry code + // not the info table itself. const StgInfoTable *info; StringIdx table_name; StringIdx closure_desc; |