X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FBlockAlloc.h;h=b6d451f39fa7f85e2f45e5bbd3d789871470c815;hb=f6013eedb4dea47afac8167dfa08561ae90454db;hp=00efeb4bbc788f015a810c975c3c5dd0911c551f;hpb=9a9803e8dc80ba41bd3e2d31228e64fa6b61060e;p=ghc-hetmet.git

diff --git a/rts/sm/BlockAlloc.h b/rts/sm/BlockAlloc.h
index 00efeb4..b6d451f 100644
--- a/rts/sm/BlockAlloc.h
+++ b/rts/sm/BlockAlloc.h
@@ -13,6 +13,9 @@ BEGIN_RTS_PRIVATE
 
 /* Debugging  -------------------------------------------------------------- */
 
+extern nat countBlocks       (bdescr *bd);
+extern nat countAllocdBlocks (bdescr *bd);
+
 #ifdef DEBUG
 void checkFreeListSanity(void);
 nat  countFreeList(void);