From: rrt <unknown>
Date: Thu, 17 Aug 2000 15:21:55 +0000 (+0000)
Subject: [project @ 2000-08-17 15:21:55 by rrt]
X-Git-Tag: Approximately_9120_patches~3874
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=39cbf83058b9c391f30b927eb7d15b1224151cf3;p=ghc-hetmet.git

[project @ 2000-08-17 15:21:55 by rrt]
barf when a DLLized RTS tries to allocate a 2nd Windows monster block;
is_heap_alloced stops working at this point. No problem for the static
build.
---

diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c
index 0159dfe..e9bfe64 100644
--- a/ghc/rts/MBlock.c
+++ b/ghc/rts/MBlock.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.16 2000/08/04 23:31:44 lewie Exp $
+ * $Id: MBlock.c,v 1.17 2000/08/17 15:21:55 rrt Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -173,6 +173,9 @@ getMBlocks(nat n)
 
   if ( (base_non_committed == 0) || 
        (next_request + size > base_non_committed + SIZE_RESERVED_POOL) ) {
+#ifdef ENABLE_WIN32_DLL_SUPPORT
+    barf("2nd Windows monster block required; I can only cope with 1!");
+#endif
     base_non_committed = VirtualAlloc ( NULL
                                       , SIZE_RESERVED_POOL
 				      , MEM_RESERVE