ghc/runtime/hooks/OutOfVM.lc


1
2
3
4
5
6
7
8
9
10
11

\begin{code}
#include "rtsdefs.h"

void
MallocFailHook (request_size, msg)
  I_ request_size;    /* in bytes */
  char *msg;
{
    fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);
}
\end{code}