From: sof <unknown>
Date: Wed, 26 Mar 2003 17:40:58 +0000 (+0000)
Subject: [project @ 2003-03-26 17:40:57 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1026
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa092c29d011e70a5658e726bbf523149f4dfbe2;p=ghc-hetmet.git

[project @ 2003-03-26 17:40:57 by sof]
wibbles - drop references to PleaseStopAllocating(), use CloseNursery() to express ExtendNursery()
---

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