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