diff options
-rw-r--r-- | rts/Stats.c | 2 | ||||
-rw-r--r-- | rts/hooks/OutOfHeap.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index b9df019ab8..fcca405801 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -546,7 +546,7 @@ stat_exit(int alloc) TICK_TO_DBL(GC_coll_etimes[g])); } - statsPrintf("\n%11ld Mb total memory in use\n\n", + statsPrintf("\n%11ld MB total memory in use\n\n", mblocks_allocated * MBLOCK_SIZE / (1024 * 1024)); #if defined(THREADED_RTS) 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)); } |