diff options
| author | simonmar@microsoft.com <unknown> | 2007-12-18 14:51:35 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2007-12-18 14:51:35 +0000 |
| commit | a52e4629a4e9a90fb612967c4e1f6f86429a0df3 (patch) | |
| tree | 52e4a4205c205f925893065de34a2fb8556f9bba /rts/hooks | |
| parent | de6a898b43cacc69cd9bc4c6675d3e8771047f17 (diff) | |
| download | haskell-a52e4629a4e9a90fb612967c4e1f6f86429a0df3.tar.gz | |
use "MB" rather than "Mb" for abbreviating megabytes
Diffstat (limited to 'rts/hooks')
| -rw-r--r-- | rts/hooks/OutOfHeap.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/hooks/OutOfHeap.c b/rts/hooks/OutOfHeap.c index 98db0d7d49..e998237764 100644 --- a/rts/hooks/OutOfHeap.c +++ b/rts/hooks/OutOfHeap.c @@ -13,7 +13,7 @@ OutOfHeapHook (lnat request_size, lnat heap_size) /* both sizes in bytes */ /* fprintf(stderr, "Heap exhausted;\nwhile trying to allocate %lu bytes in a %lu-byte heap;\nuse `+RTS -H<size>' to increase the total heap size.\n", */ (void)request_size; /* keep gcc -Wall happy */ - fprintf(stderr, "Heap exhausted;\nCurrent maximum heap size is %lu bytes (%lu Mb);\nuse `+RTS -M<size>' to increase it.\n", + fprintf(stderr, "Heap exhausted;\nCurrent maximum heap size is %lu bytes (%lu MB);\nuse `+RTS -M<size>' to increase it.\n", heap_size, heap_size / (1024*1024)); } |