1 /* -----------------------------------------------------------------------------
3 * User-overridable RTS hooks.
5 * ---------------------------------------------------------------------------*/
7 #include "PosixSource.h"
13 StackOverflowHook (lnat stack_size) /* in bytes */
15 fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize -RTS' to increase it.\n", stack_size);