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