[project @ 2003-10-12 13:24:52 by igloo]

[ghc-hetmet.git] / ghc / includes / StgStorage.h

diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h
index 3af566d..5c0ca12 100644 (file)
--- a/ghc/includes/StgStorage.h
+++ b/ghc/includes/StgStorage.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgStorage.h,v 1.10 2001/07/24 16:36:44 simonmar Exp $
+ * $Id: StgStorage.h,v 1.12 2003/03/26 17:40:58 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -96,15 +96,11 @@ typedef struct _generation {
 
    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    = CurrentNursery->free-1,                     \
-   hplim = CurrentNursery->start + BLOCK_SIZE_W - 1)
+   hplim = CurrentNursery->start + CurrentNursery->blocks*BLOCK_SIZE_W - 1)
   
 #define CloseNursery(hp)  (CurrentNursery->free = (P_)(hp)+1)