/* -----------------------------------------------------------------------------
 * $Id: StgStorage.h,v 1.4 1999/03/02 19:44:21 sof Exp $
 *
 * (c) The GHC Team, 1998-1999
 *
 * STG Storage Manger Interface
 *
 * ---------------------------------------------------------------------------*/

#ifndef STGSTORAGE_H
#define STGSTORAGE_H

#include "Block.h"

extern DLL_IMPORT_RTS bdescr *current_nursery;

/* -----------------------------------------------------------------------------
   Allocation area for compiled code

   OpenNursery(hp,hplim)        Opens the allocation area, and sets hp
   				and hplim appropriately.

   CloseNursery(hp)		Closes the allocation area.

   PleaseStopAllocating(void)   Arranges that the next call to
   				ExtendNursery() will fail, triggering
				a return to the scheduler.  This is
				useful for asynchronous interupts etc.
   -------------------------------------------------------------------------- */

#define OpenNursery(hp,hplim)				\
  (hp    = current_nursery->free-1,			\
   hplim = current_nursery->start + BLOCK_SIZE_W - 1)
  
#define CloseNursery(hp)  (current_nursery->free = (P_)(hp)+1)

/* -----------------------------------------------------------------------------
   Trigger a GC from Haskell land.
   -------------------------------------------------------------------------- */

extern void performGC(void);
extern void performGCWithRoots(void (*get_roots)(void));

#endif /* STGSTORAGE_H */