[project @ 1996-07-25 20:43:49 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 6034532..a5a108e 100644 (file)
--- a/ghc/runtime/hooks/OutOfVM.lc
+++ b/ghc/runtime/hooks/OutOfVM.lc
@@ -2,9 +2,7 @@
 #include "rtsdefs.h"
 
 void
-MallocFailHook (request_size, msg)
-  I_ request_size;    /* in bytes */
-  char *msg;
+MallocFailHook (I_ request_size /* in bytes */, char *msg)
 {
     fprintf(stderr, "malloc: failed on request for %lu bytes; message: %s\n", request_size, msg);
 }