From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 24 May 2006 11:20:07 +0000 (+0000)
Subject: we don't need OutOfHeapHook(), and the version in the RTS has a better message
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=bb1cdf565e46ff8367fb08ec998007d054e0f02f;hp=d646207d8c2768fd821bc2a383a2c2aaf6935067;p=ghc-hetmet.git

we don't need OutOfHeapHook(), and the version in the RTS has a better message
---

diff --git a/compiler/parser/hschooks.c b/compiler/parser/hschooks.c
index f3e7447..5c87b31 100644
--- a/compiler/parser/hschooks.c
+++ b/compiler/parser/hschooks.c
@@ -39,15 +39,6 @@ defaultsHook (void)
 }
 
 void
-OutOfHeapHook (unsigned long request_size/* always zero these days */,
-	       unsigned long heap_size)
-    /* both in bytes */
-{
-    fprintf(stderr, "GHC's heap exhausted: current limit is %lu bytes;\nUse the `-M<size>' option to increase the total heap size.\n",
-	heap_size);
-}
-
-void
 StackOverflowHook (unsigned long stack_size)    /* in bytes */
 {
     fprintf(stderr, "GHC stack-space overflow: current limit is %ld bytes.\nUse the `-K<size>' option to increase it.\n", stack_size);