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