From fa092c29d011e70a5658e726bbf523149f4dfbe2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 26 Mar 2003 17:40:58 +0000
Subject: [PATCH] [project @ 2003-03-26 17:40:57 by sof] wibbles - drop
 references to PleaseStopAllocating(), use CloseNursery() to
 express ExtendNursery()

---
 ghc/includes/StgStorage.h |    6 +-----
 ghc/rts/Storage.h         |    6 ++----
 2 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h
index 11cca70..5c0ca12 100644
--- a/ghc/includes/StgStorage.h
+++ b/ghc/includes/StgStorage.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgStorage.h,v 1.11 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: StgStorage.h,v 1.12 2003/03/26 17:40:58 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -96,10 +96,6 @@ 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)				\
diff --git a/ghc/rts/Storage.h b/ghc/rts/Storage.h
index dc86e02..12f9982 100644
--- a/ghc/rts/Storage.h
+++ b/ghc/rts/Storage.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Storage.h,v 1.49 2003/03/24 14:46:57 simonmar Exp $
+ * $Id: Storage.h,v 1.50 2003/03/26 17:40:57 sof Exp $
  *
  * (c) The GHC Team, 1998-2002
  *
@@ -78,14 +78,12 @@ doYouWantToGC( void )
   -------------------------------------------------------------------------- */
 
 #define ExtendNursery(hp,hplim)			\
-  (CurrentNursery->free = (P_)(hp)+1,		\
+  (CloseNursery(hp),                            \
    CurrentNursery->link == NULL ? rtsFalse :	\
    (CurrentNursery = CurrentNursery->link,	\
     OpenNursery(hp,hplim),			\
     rtsTrue))
 
-extern void PleaseStopAllocating(void);
-
 /* -----------------------------------------------------------------------------
    Performing Garbage Collection
 
-- 
1.7.10.4