blob: 8db9fa8e9691085d347684abc4d3dbebdcb83edc (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
\begin{code}
#include "rtsdefs.h"
void
OutOfHeapHook (W_ request_size, W_ heap_size) /* both sizes in bytes */
{
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",
request_size,
heap_size);
}
\end{code}
|
