[commit: ghc] master: Fix the stage1 ghc hschooks.c (8a25d8a)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8a25d8afa97805a76e4d374ee91faaf9e54b02d5

>---------------------------------------------------------------

commit 8a25d8afa97805a76e4d374ee91faaf9e54b02d5
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon Apr 30 20:14:36 2012 +0100

    Fix the stage1 ghc hschooks.c
    
    The stage0 compiler might have a different idea as to what type lnat
    corresponds to, so cast the value to the type we want.

>---------------------------------------------------------------

 ghc/hschooks.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/ghc/hschooks.c b/ghc/hschooks.c
index 2572bab..232ac08 100644
--- a/ghc/hschooks.c
+++ b/ghc/hschooks.c
@@ -34,6 +34,6 @@ defaultsHook (void)
 void
 StackOverflowHook (lnat stack_size)    /* in bytes */
 {
-    fprintf(stderr, "GHC stack-space overflow: current limit is %zu bytes.\nUse the `-K<size>' option to increase it.\n", stack_size);
+    fprintf(stderr, "GHC stack-space overflow: current limit is %zu bytes.\nUse the `-K<size>' option to increase it.\n", (size_t)stack_size);
 }