ghc/runtime/hooks/OutOfVM.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 MallocFailHook (request_size, msg)
   6   I_ request_size;    /* in bytes */
   7   char *msg;
   8 {
   9     fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);
  10 }
  11 \end{code}