X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStoragePriv.h;h=556c6129dbc92e9218f3ba572ed514a3183e3106;hb=d255dfff87648bcd4dd1d87faa8d835d358c70a2;hp=a75c5686feea7d02a6d01ba2080c7fe85185d382;hpb=f762be1b5a12b215595acdfb0343a6161e1a0e86;p=ghc-hetmet.git diff --git a/ghc/rts/StoragePriv.h b/ghc/rts/StoragePriv.h index a75c568..556c612 100644 --- a/ghc/rts/StoragePriv.h +++ b/ghc/rts/StoragePriv.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: StoragePriv.h,v 1.20 2002/03/12 11:51:07 simonmar Exp $ + * $Id: StoragePriv.h,v 1.24 2002/12/19 14:33:23 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -21,6 +21,7 @@ extern step *g0s0; extern generation *oldest_gen; extern void newCAF(StgClosure*); +extern void newDynCAF(StgClosure *); extern void move_TSO(StgTSO *src, StgTSO *dest); extern StgTSO *relocate_stack(StgTSO *dest, ptrdiff_t diff); @@ -54,6 +55,7 @@ extern void allocNurseries ( void ); extern void resetNurseries ( void ); extern bdescr * allocNursery ( bdescr *last_bd, nat blocks ); extern void resizeNursery ( nat blocks ); +extern void tidyAllocateLists ( void ); /* Stats 'n' stuff */ extern lnat calcAllocated ( void ); @@ -83,16 +85,6 @@ extern void checkSanity(void); extern nat countBlocks(bdescr *); #endif -/* - * These three are used by the garbage collector when we have - * dynamically-linked object modules. (see ClosureMacros.h, - * IS_CODE_PTR etc.). - * Defined in Linker.c. - */ -int is_dynamically_loaded_code_or_rodata_ptr ( void* p ); -int is_dynamically_loaded_rwdata_ptr ( void* p ); -int is_not_dynamically_loaded_ptr ( void* p ); - /* Functions from GC.c */ extern void threadPaused ( StgTSO * );