1 /* -----------------------------------------------------------------------------
2 * $Id: MallocFail.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
13 MallocFailHook (lnat request_size /* in bytes */, char *msg)
15 fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);