diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-05-24 11:20:07 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-05-24 11:20:07 +0000 |
| commit | bb1cdf565e46ff8367fb08ec998007d054e0f02f (patch) | |
| tree | a09a1af4f246af8ea2573bac87568ca5c60321e0 /compiler/parser | |
| parent | d646207d8c2768fd821bc2a383a2c2aaf6935067 (diff) | |
| download | haskell-bb1cdf565e46ff8367fb08ec998007d054e0f02f.tar.gz | |
we don't need OutOfHeapHook(), and the version in the RTS has a better message
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/hschooks.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/compiler/parser/hschooks.c b/compiler/parser/hschooks.c index f3e7447a49..5c87b3189d 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); |