summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2023-04-12 07:58:13 -0400
committerBen Gamari <ben@smart-cactus.org>2023-04-12 07:58:13 -0400
commitb15f80004d7259bf95847f93186635ac6f8d62ed (patch)
treeef49833396bdfd6aad3f50bd18726716c82a3e94
parent3368c7dcfc46e80dd274df0c4131ee71febf0af6 (diff)
downloadhaskell-wip/gc-backports-9.4.tar.gz
rts: Fix incorrect format specifier warningswip/gc-backports-9.4
-rw-r--r--rts/eventlog/EventLog.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index c2d41aa820..2afc092e42 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -759,8 +759,8 @@ void postCapsetVecEvent (EventTypeNum tag,
if (size + increment > EVENT_PAYLOAD_SIZE_MAX) {
errorBelch("Event size exceeds EVENT_PAYLOAD_SIZE_MAX, record only %"
FMT_Int " out of %" FMT_Int " args",
- (long long) i,
- (long long) argc);
+ (StgInt) i,
+ (StgInt) argc);
argc = i;
break;
} else {