ghc/rts/StoragePriv.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: StoragePriv.h,v 1.22 2002/11/01 11:05:47 simonmar Exp $
   3  *
   4  * (c) The GHC Team, 1998-1999
   5  *
   6  * Internal Storage Manger Interface
   7  *
   8  * ---------------------------------------------------------------------------*/
   9
  10 #ifndef STORAGEPRIV_H
  11 #define STORAGEPRIV_H
  12
  13 #include <stddef.h>
  14
  15 #define END_OF_STATIC_LIST stgCast(StgClosure*,1)
  16
  17 extern generation *generations;
  18
  19 extern generation *g0;
  20 extern step *g0s0;
  21 extern generation *oldest_gen;
  22
  23 extern void newCAF(StgClosure*);
  24
  25 extern void move_TSO(StgTSO *src, StgTSO *dest);
  26 extern StgTSO *relocate_stack(StgTSO *dest, ptrdiff_t diff);
  27
  28 extern StgClosure *static_objects;
  29 extern StgClosure *scavenged_static_objects;
  30
  31 extern StgWeak *old_weak_ptr_list;
  32
  33 extern StgWeak    *weak_ptr_list;
  34 extern StgClosure *caf_list;
  35
  36 extern StgTSO *resurrected_threads;
  37
  38 extern bdescr *small_alloc_list;
  39 extern bdescr *large_alloc_list;
  40 extern bdescr *pinned_object_block;
  41
  42 extern StgPtr alloc_Hp;
  43 extern StgPtr alloc_HpLim;
  44
  45 extern bdescr *nursery;
  46
  47 extern nat alloc_blocks;
  48 extern nat alloc_blocks_lim;
  49
  50 extern lnat total_allocated;
  51
  52 /* Nursery manipulation */
  53 extern void     allocNurseries ( void );
  54 extern void     resetNurseries ( void );
  55 extern bdescr * allocNursery   ( bdescr *last_bd, nat blocks );
  56 extern void     resizeNursery  ( nat blocks );
  57 extern void     tidyAllocateLists ( void );
  58
  59 /* Stats 'n' stuff */
  60 extern lnat calcAllocated  ( void );
  61 extern lnat calcLive       ( void );
  62 extern lnat calcNeeded     ( void );
  63
  64 static inline void
  65 dbl_link_onto(bdescr *bd, bdescr **list)
  66 {
  67   bd->link = *list;
  68   bd->u.back = NULL;
  69   if (*list) {
  70     (*list)->u.back = bd; /* double-link the list */
  71   }
  72   *list = bd;
  73 }
  74
  75 /* MUTABLE LISTS
  76  * A mutable list is ended with END_MUT_LIST, so that we can use NULL
  77  * as an indication that an object is not on a mutable list.
  78  */
  79 #define END_MUT_LIST ((StgMutClosure *)(void *)&stg_END_MUT_LIST_closure)
  80
  81 #ifdef DEBUG
  82 extern void memInventory(void);
  83 extern void checkSanity(void);
  84 extern nat  countBlocks(bdescr *);
  85 #endif
  86
  87 /*
  88  * These three are used by the garbage collector when we have
  89  * dynamically-linked object modules.  (see Storage.h,
  90  * IS_DATA_PTR etc.).
  91  * Defined in Linker.c.
  92  */
  93 int is_dynamically_loaded_code_or_rodata_ptr ( void* p );
  94 int is_dynamically_loaded_rwdata_ptr         ( void* p );
  95 int is_not_dynamically_loaded_ptr            ( void* p );
  96
  97 /* Functions from GC.c
  98  */
  99 extern void         threadPaused ( StgTSO * );
 100 extern StgClosure * isAlive      ( StgClosure *p );
 101 extern void         markCAFs     ( evac_fn evac );
 102
 103 #endif /* STORAGEPRIV_H */