ghc/rts/hooks/StackOverflow.c

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