diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-11-11 11:23:05 -0500 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-14 09:36:57 -0500 |
commit | 268a3ce952f6be00a1dd164dc4d7acb346045e90 (patch) | |
tree | b7865c96792c6c3ee0be1d3318bd8ef6b474f0b0 /rts/eventlog | |
parent | 294f907370fadd3313f8c5e6aa87a93c8b86f139 (diff) | |
download | haskell-268a3ce952f6be00a1dd164dc4d7acb346045e90.tar.gz |
eventlog: Ensure that IPE output contains actual info table pointers
The refactoring in 866c736e introduced a rather subtle change in the
semantics of the IPE eventlog output, changing the eventlog field from
encoding info table pointers to "TNTC pointers" (which point to entry
code when tables-next-to-code is enabled). Fix this.
Fixes #22452.
Diffstat (limited to 'rts/eventlog')
-rw-r--r-- | rts/eventlog/EventLog.c | 2 |
1 files changed, 1 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); |