[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / hooks / OutOfVM.lc

diff --git a/ghc/runtime/hooks/OutOfVM.lc b/ghc/runtime/hooks/OutOfVM.lc
index 9a33cec..6034532 100644 (file)
--- a/ghc/runtime/hooks/OutOfVM.lc
+++ b/ghc/runtime/hooks/OutOfVM.lc
@@ -2,9 +2,10 @@
 #include "rtsdefs.h"
 
 void
-MallocFailHook (request_size)
+MallocFailHook (request_size, msg)
   I_ request_size;    /* in bytes */
+  char *msg;
 {
-    fprintf(stderr, "malloc: failed on request for %lu bytes\n", request_size);
+    fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);
 }
 \end{code}