X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fstorage%2FMBlock.h;h=69b3742514f8efaca7a407be11356600698bd105;hb=497cdc321da61d90f01cca6b57d974742bea7aa0;hp=739ac6852afb4b0069c0ea2e7ad2c6e5fe735b97;hpb=d12690d5995de055d7e9b8ed04946bbb609b6e98;p=ghc-hetmet.git

diff --git a/includes/rts/storage/MBlock.h b/includes/rts/storage/MBlock.h
index 739ac68..69b3742 100644
--- a/includes/rts/storage/MBlock.h
+++ b/includes/rts/storage/MBlock.h
@@ -12,17 +12,17 @@
 #ifndef RTS_STORAGE_MBLOCK_H
 #define RTS_STORAGE_MBLOCK_H
 
+extern lnat peak_mblocks_allocated;
 extern lnat mblocks_allocated;
 
 extern void initMBlocks(void);
 extern void * getMBlock(void);
 extern void * getMBlocks(nat n);
+extern void freeMBlocks(void *addr, nat n);
 extern void freeAllMBlocks(void);
 
-#ifdef DEBUG
 extern void *getFirstMBlock(void);
 extern void *getNextMBlock(void *mblock);
-#endif
 
 #ifdef THREADED_RTS
 // needed for HEAP_ALLOCED below