X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgStorage.h;h=11cca7033e0b7e896a00721aa8a2ae9cdf7c5bd8;hb=11c7505f6a0d17bb7d00183b81a0bbf7cd38f3ef;hp=3af566d891dcc488aab081593270cebdcb9efa63;hpb=76a51a41211a151d68a90e8dd732aeea1da17847;p=ghc-hetmet.git

diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h
index 3af566d..11cca70 100644
--- 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.11 2001/11/08 12:46:31 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -104,7 +104,7 @@ typedef struct _generation {
 
 #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)