From a60cf7b3e00f341c9413e8e90101fc0e4bd7afd6 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 25 Mar 2003 09:40:06 +0000 Subject: [PATCH] [project @ 2003-03-25 09:40:06 by simonmar] Update the out-of-memory error message: the request size isn't known any more. --- ghc/compiler/parser/hschooks.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ghc/compiler/parser/hschooks.c b/ghc/compiler/parser/hschooks.c index adc985b..ee43bf7 100644 --- a/ghc/compiler/parser/hschooks.c +++ b/ghc/compiler/parser/hschooks.c @@ -74,18 +74,18 @@ PostTraceHook (long fd) } void -OutOfHeapHook (unsigned long request_size, unsigned long heap_size) - /* both in bytes */ +OutOfHeapHook (unsigned long request_size/* always zero these days */, + unsigned long heap_size) + /* both in bytes */ { - fprintf(stderr, "GHC's heap exhausted;\nwhile trying to allocate %lu bytes in a %lu-byte heap;\nuse the `-H' option to increase the total heap size.\n", - request_size, + fprintf(stderr, "GHC's heap exhausted: current limit is %lu bytes;\nUse the `-H' 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 size %ld bytes.\nUse the `-K' option to increase it.\n", stack_size); + fprintf(stderr, "GHC stack-space overflow: current limit is %ld bytes.\nUse the `-K' option to increase it.\n", stack_size); } HsInt -- 1.7.10.4