diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-04-30 20:14:36 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-04-30 20:15:35 +0100 |
| commit | 8a25d8afa97805a76e4d374ee91faaf9e54b02d5 (patch) | |
| tree | 56db7f8a088277da02163ea1f58c269e5ccd9723 | |
| parent | 0042c478f1169ddd9392fb39de7d0aed865a272e (diff) | |
| download | haskell-8a25d8afa97805a76e4d374ee91faaf9e54b02d5.tar.gz | |
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.
| -rw-r--r-- | ghc/hschooks.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/hschooks.c b/ghc/hschooks.c index 2572babf41..232ac08045 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); } |