diff options
author | Ian Lynagh <igloo@earth.li> | 2012-09-14 13:24:48 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-09-14 13:24:48 +0100 |
commit | c38794d45334ebabe76f2a48952b8ad7bf748ea2 (patch) | |
tree | 8c9395a5db5d03d14bbbb8ab74dc28e1db7aaa64 /rts/hooks | |
parent | f4d0e6282da7b37fe019aaf91a32d3f958ceec64 (diff) | |
download | haskell-c38794d45334ebabe76f2a48952b8ad7bf748ea2.tar.gz |
More OS X build fixes
Diffstat (limited to 'rts/hooks')
-rw-r--r-- | rts/hooks/MallocFail.c | 2 | ||||
-rw-r--r-- | rts/hooks/OutOfHeap.c | 2 | ||||
-rw-r--r-- | rts/hooks/StackOverflow.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/rts/hooks/MallocFail.c b/rts/hooks/MallocFail.c index 6280b2f21d..6c3a1a0faf 100644 --- a/rts/hooks/MallocFail.c +++ b/rts/hooks/MallocFail.c @@ -12,6 +12,6 @@ void MallocFailHook (W_ request_size /* in bytes */, char *msg) { - fprintf(stderr, "malloc: failed on request for %" FMT_SizeT " bytes; message: %s\n", request_size, msg); + fprintf(stderr, "malloc: failed on request for %" FMT_Word " bytes; message: %s\n", request_size, msg); } diff --git a/rts/hooks/OutOfHeap.c b/rts/hooks/OutOfHeap.c index b54a08a6e8..ec4697b547 100644 --- a/rts/hooks/OutOfHeap.c +++ b/rts/hooks/OutOfHeap.c @@ -15,7 +15,7 @@ OutOfHeapHook (W_ request_size, W_ heap_size) /* both sizes in bytes */ (void)request_size; /* keep gcc -Wall happy */ if (heap_size > 0) { - errorBelch("Heap exhausted;\nCurrent maximum heap size is %" FMT_SizeT " bytes (%" FMT_SizeT " MB);\nuse `+RTS -M<size>' to increase it.", + errorBelch("Heap exhausted;\nCurrent maximum heap size is %" FMT_Word " bytes (%" FMT_Word " MB);\nuse `+RTS -M<size>' to increase it.", heap_size, heap_size / (1024*1024)); } else { errorBelch("out of memory"); diff --git a/rts/hooks/StackOverflow.c b/rts/hooks/StackOverflow.c index 6a58bb8864..407293902d 100644 --- a/rts/hooks/StackOverflow.c +++ b/rts/hooks/StackOverflow.c @@ -12,6 +12,6 @@ void StackOverflowHook (W_ stack_size) /* in bytes */ { - fprintf(stderr, "Stack space overflow: current size %" FMT_SizeT " bytes.\nUse `+RTS -Ksize -RTS' to increase it.\n", stack_size); + fprintf(stderr, "Stack space overflow: current size %" FMT_Word " bytes.\nUse `+RTS -Ksize -RTS' to increase it.\n", stack_size); } |