diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-02-26 15:40:18 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-08 07:32:15 -0500 |
| commit | 33a4fd9939f8fc8e9ba4e61041270353f51ae55e (patch) | |
| tree | 8bc3624fc179d11dc68a504646bae97b1ce48dcb /rts/sm/BlockAlloc.h | |
| parent | 657b5538904f7d9e0b3ea5d84f4017af3c513df9 (diff) | |
| download | haskell-33a4fd9939f8fc8e9ba4e61041270353f51ae55e.tar.gz | |
eventlog: Add MEM_RETURN event to give information about fragmentation
See #19357
The event reports the
* Current number of megablocks allocated
* The number that the RTS thinks it needs
* The number is managed to return to the OS
When current > need then the difference is returned to the OS, the
successful number of returned mblocks is reported by 'returned'.
In a fragmented heap current > need but returned < current - need.
Diffstat (limited to 'rts/sm/BlockAlloc.h')
| -rw-r--r-- | rts/sm/BlockAlloc.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/BlockAlloc.h b/rts/sm/BlockAlloc.h index 217d669a13..f28e35fc87 100644 --- a/rts/sm/BlockAlloc.h +++ b/rts/sm/BlockAlloc.h @@ -17,7 +17,7 @@ bdescr *allocLargeChunkOnNode (uint32_t node, W_ min, W_ max); extern W_ countBlocks (bdescr *bd); extern W_ countAllocdBlocks (bdescr *bd); -extern void returnMemoryToOS(uint32_t n); +extern uint32_t returnMemoryToOS(uint32_t n); #if defined(DEBUG) void checkFreeListSanity(void); |