1 /* -----------------------------------------------------------------------------
2 * $Id: MallocFail.c,v 1.2 1998/12/02 13:29:12 simonm Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
11 MallocFailHook (lnat request_size /* in bytes */, char *msg)
13 fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);