diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-01-10 12:42:04 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-01-10 12:42:04 +0300 |
| commit | 82d1a88dec216d761b17252ede760da5c566007f (patch) | |
| tree | f925f9294d73682ffccda2ea77374a8ceb685c8e /rts/Arena.h | |
| parent | 6486c6e49c53e75f37ed732b38c5be7ae64785e8 (diff) | |
| download | haskell-82d1a88dec216d761b17252ede760da5c566007f.tar.gz | |
Implement a sanity check for CCS fields in profiling builds
This helped me debug one of the bugs in #15508. I'm not sure if this is
a good idea, but it worked for me, so wanted to submit this as a MR.
Diffstat (limited to 'rts/Arena.h')
| -rw-r--r-- | rts/Arena.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/Arena.h b/rts/Arena.h index 8fa8236d8d..49298713ab 100644 --- a/rts/Arena.h +++ b/rts/Arena.h @@ -20,3 +20,7 @@ RTS_PRIVATE void arenaFree ( Arena * ); // For internal use only: RTS_PRIVATE unsigned long arenaBlocks( void ); + +#if defined(DEBUG) +void checkPtrInArena( StgPtr p, Arena *arena ); +#endif |