rts/hooks/StackOverflow.c

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * User-overridable RTS hooks.
   4  *
   5  * ---------------------------------------------------------------------------*/
   6
   7 #include "Rts.h"
   8
   9 #include <stdio.h>
  10
  11 void
  12 StackOverflowHook (lnat stack_size)    /* in bytes */
  13 {
  14     fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);
  15 }
  16