ghc/runtime/hooks/OutOfStk.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 StackOverflowHook (I_ stack_size)    /* in bytes */
   6 {
   7     fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);
   8 }
   9 \end{code}