rts/hooks/MallocFail.c

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * User-overridable RTS hooks.
   4  *
   5  * ---------------------------------------------------------------------------*/
   6
   7 #include "Rts.h"
   8
   9 #include <stdio.h>
  10
  11 void
  12 MallocFailHook (lnat request_size /* in bytes */, char *msg)
  13 {
  14     fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);
  15 }
  16