summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2019-04-15 17:07:24 -0400
committerBen Gamari <ben@smart-cactus.org>2019-10-22 12:17:00 -0400
commit711837cc4af86904a7d75aea7e3cf66d523128d5 (patch)
tree2e4e9a0822f8fda8011819d0ce067a23c307a5af
parent9f42cd81af3daa1009509be606e43763dd4c3cea (diff)
downloadhaskell-711837cc4af86904a7d75aea7e3cf66d523128d5.tar.gz
rts/Eventlog: More descriptive error message
-rw-r--r--rts/eventlog/EventLog.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/rts/eventlog/EventLog.c b/rts/eventlog/EventLog.c
index 60b960998f..a9bb603523 100644
--- a/rts/eventlog/EventLog.c
+++ b/rts/eventlog/EventLog.c
@@ -511,8 +511,10 @@ initEventLogging(const EventLogWriter *ev_writer)
event_log_writer = ev_writer;
initEventLogWriter();
- if (sizeof(EventDesc) / sizeof(char*) != NUM_GHC_EVENT_TAGS) {
- barf("EventDesc array has the wrong number of elements");
+ int num_descs = sizeof(EventDesc) / sizeof(char*);
+ if (num_descs != NUM_GHC_EVENT_TAGS) {
+ barf("EventDesc array has the wrong number of elements (%d, NUM_GHC_EVENT_TAGS=%d)",
+ num_descs, NUM_GHC_EVENT_TAGS);
}
/*