X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fhooks%2FOutOfStk.lc;h=58a1a855fe5f3b8346f7de068fa1cc404a159381;hp=470562117a90e01340d60b18981af2ad924ff83a;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/runtime/hooks/OutOfStk.lc b/ghc/runtime/hooks/OutOfStk.lc
index 4705621..58a1a85 100644
--- a/ghc/runtime/hooks/OutOfStk.lc
+++ b/ghc/runtime/hooks/OutOfStk.lc
@@ -2,8 +2,7 @@
 #include "rtsdefs.h"
 
 void
-StackOverflowHook (stack_size)
-  I_ stack_size;    /* in bytes */
+StackOverflowHook (I_ stack_size)    /* in bytes */
 {
     fprintf(stderr, "Stack space overflow: current size %ld bytes.\nUse `+RTS -Ksize' to increase it.\n", stack_size);
 }