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.
/* -----------------------------------------------------------------------------
- * $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
*
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