Revert "rts: add Emacs 'Local Variables' to every .c file"
[ghc.git] / rts / hooks / StackOverflow.c
1 /* -----------------------------------------------------------------------------
2 *
3 * User-overridable RTS hooks.
4 *
5 * ---------------------------------------------------------------------------*/
6
7 #include "PosixSource.h"
8 #include "Rts.h"
9
10 #include <stdio.h>
11
12 void
13 StackOverflowHook (W_ stack_size) /* in bytes */
14 {
15 fprintf(stderr, "Stack space overflow: current size %" FMT_Word " bytes.\nUse `+RTS -Ksize -RTS' to increase it.\n", stack_size);
16 }
17