diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-02-26 16:08:18 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-08 07:32:15 -0500 |
| commit | ffc9643986bc83429c78910135614e830a131a7d (patch) | |
| tree | d230aacf66f588a85b21e4392343a98fa3297601 /includes | |
| parent | 33a4fd9939f8fc8e9ba4e61041270353f51ae55e (diff) | |
| download | haskell-ffc9643986bc83429c78910135614e830a131a7d.tar.gz | |
eventlog: Add BLOCKS_SIZE event
The BLOCKS_SIZE event reports the size of the currently allocated blocks
in bytes.
It is like the HEAP_SIZE event, but reports about the blocks rather than
megablocks.
You can work out the current heap fragmentation by looking at the
difference between HEAP_SIZE and BLOCKS_SIZE.
Fixes #19357
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/EventLogFormat.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/includes/rts/EventLogFormat.h b/includes/rts/EventLogFormat.h index 37b7bc363d..b8b261ae3d 100644 --- a/includes/rts/EventLogFormat.h +++ b/includes/rts/EventLogFormat.h @@ -128,6 +128,7 @@ */ #define EVENT_MEM_RETURN 90 /* (cap, current_mblocks, needed_mblocks, returned_mblocks) */ +#define EVENT_BLOCKS_SIZE 91 /* (heapcapset, size_bytes) */ /* Range 100 - 139 is reserved for Mercury. */ |