X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fhooks%2FOutOfVM.lc;h=a5a108e0921ffece156b0d2edc7257a683d4b041;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=60345320ec5c9928f0a14babf2ea928c29b7df90;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee;p=ghc-hetmet.git

diff --git a/ghc/runtime/hooks/OutOfVM.lc b/ghc/runtime/hooks/OutOfVM.lc
index 6034532..a5a108e 100644
--- 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);
 }