diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-11-25 16:36:19 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-18 05:51:10 -0500 |
| commit | 09edf5e5f7f19109c51bb4d8ba7fb6a40b149d58 (patch) | |
| tree | bea61b344bb4f32ec70ea1dcb679999e0abeaa98 | |
| parent | b4fcfd0fab8db08d7fa0c2cff087f1e89e865239 (diff) | |
| download | haskell-09edf5e5f7f19109c51bb4d8ba7fb6a40b149d58.tar.gz | |
rts: EventLog.c: Properly cast (potential) 32bit pointers to uint64_t
| -rw-r--r-- | rts/eventlog/EventLog.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c index 824c554dcf..afd5a8171f 100644 --- a/rts/eventlog/EventLog.c +++ b/rts/eventlog/EventLog.c @@ -1490,7 +1490,8 @@ static void postTickyCounterDef(EventsBuf *eb, StgEntCounter *p) ensureRoomForVariableEvent(eb, len); postEventHeader(eb, EVENT_TICKY_COUNTER_DEF); postPayloadSize(eb, len); - postWord64(eb, (uint64_t) p); + + postWord64(eb, (uint64_t)((uintptr_t) p)); postWord16(eb, (uint16_t) p->arity); postString(eb, p->arg_kinds); postString(eb, p->str); @@ -1514,7 +1515,7 @@ static void postTickyCounterSample(EventsBuf *eb, StgEntCounter *p) ensureRoomForEvent(eb, EVENT_TICKY_COUNTER_SAMPLE); postEventHeader(eb, EVENT_TICKY_COUNTER_SAMPLE); - postWord64(eb, (uint64_t) p); + postWord64(eb, (uint64_t)((uintptr_t) p)); postWord64(eb, p->entry_count); postWord64(eb, p->allocs); postWord64(eb, p->allocd); |