1 /* -----------------------------------------------------------------------------
2 * $Id: StoragePriv.h,v 1.2 1998/12/02 13:28:59 simonm Exp $
4 * Internal Storage Manger Interface
6 * ---------------------------------------------------------------------------*/
8 extern bdescr *allocNursery (bdescr *last_bd, nat blocks);
9 extern void newCAF(StgClosure*);
10 extern StgTSO *relocate_TSO(StgTSO *src, StgTSO *dest);
12 extern StgWeak *weak_ptr_list;
13 extern StgClosure *caf_list;
15 extern bdescr *small_alloc_list;
16 extern bdescr *large_alloc_list;
18 extern StgPtr alloc_Hp;
19 extern StgPtr alloc_HpLim;
21 extern bdescr *nursery;
23 extern nat nursery_blocks;
24 extern nat alloc_blocks;
25 extern nat alloc_blocks_lim;