ghc/runtime/hooks/OutOfStk.lc


1
2
3
4
5
6
7
8
9

\begin{code}
#include "rtsdefs.h"

void
StackOverflowHook (I_ stack_size)    /* in bytes */
{
    fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);
}
\end{code}