X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2Fhschooks.c;h=5c87b3189d5c66552ea9dd3d1c996a0206e753ca;hb=77452bc2888f3fd071774b1177868e95f85a43dc;hp=f3e7447a494e78574ddd71cf923773ef0d4acfdd;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

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);