1 /* -----------------------------------------------------------------------------
2 * $Id: StackOverflow.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
13 StackOverflowHook (lnat stack_size) /* in bytes */
15 fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);