1 /* -----------------------------------------------------------------------------
2 * $Id: StackOverflow.c,v 1.2 1998/12/02 13:29:15 simonm Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
11 StackOverflowHook (lnat stack_size) /* in bytes */
13 fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);