ghc/runtime/hooks/OutOfHeap.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 OutOfHeapHook (request_size, heap_size)
   6   W_ request_size; /* in bytes */
   7   W_ heap_size;    /* in bytes */
   8 {
   9     fprintf(stderr, "Heap exhausted;\nwhile trying to allocate %lu bytes in a %lu-byte heap;\nuse `+RTS -H<size>' to increase the total heap size.\n",
  10         request_size,
  11         heap_size);
  12 }
  13 \end{code}