From bb1cdf565e46ff8367fb08ec998007d054e0f02f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 24 May 2006 11:20:07 +0000 Subject: [PATCH] we don't need OutOfHeapHook(), and the version in the RTS has a better message --- compiler/parser/hschooks.c | 9 --------- 1 file changed, 9 deletions(-) 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' 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' option to increase it.\n", stack_size); -- 1.7.10.4