diff options
| author | lennart.augustsson@credit-suisse.com <unknown> | 2006-03-02 21:07:24 +0000 |
|---|---|---|
| committer | lennart.augustsson@credit-suisse.com <unknown> | 2006-03-02 21:07:24 +0000 |
| commit | 1dfac5c8e457dccde541c2d38e702cb1567ed661 (patch) | |
| tree | 2d7202324537eaaf5b16c8403671a562bbec1afc /ghc/rts/MBlock.h | |
| parent | c9b3d15f0a52f13764185b63c4eea4cfc9149b9d (diff) | |
| download | haskell-1dfac5c8e457dccde541c2d38e702cb1567ed661.tar.gz | |
Free all memory when shutting down. XXX not implemented for Posix.
Diffstat (limited to 'ghc/rts/MBlock.h')
| -rw-r--r-- | ghc/rts/MBlock.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/rts/MBlock.h b/ghc/rts/MBlock.h index d3214c8311..1cc0dc5a1f 100644 --- a/ghc/rts/MBlock.h +++ b/ghc/rts/MBlock.h @@ -13,6 +13,7 @@ extern lnat RTS_VAR(mblocks_allocated); extern void * getMBlock(void); extern void * getMBlocks(nat n); +extern void freeAllMBlocks(void); #if osf3_HOST_OS /* ToDo: Perhaps by adjusting this value we can make linking without |