From 23c3e624fbb9089d96ff33d043b157e4edd43a79 Mon Sep 17 00:00:00 2001
From: Andreas Klebinger <klebinger.andreas@gmx.at>
Date: Thu, 7 Mar 2024 18:54:23 +0100
Subject: [PATCH] RTS: Emit warning when -M < -H
Fixes #24487
---
rts/RtsFlags.c | 3 +++
1 file changed, 3 insertions(+)
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index ed88015e2364..1eedc5350d7b 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -1959,6 +1959,9 @@ static void normaliseRtsOpts (void)
if (RtsFlags.GcFlags.maxHeapSize != 0 &&
RtsFlags.GcFlags.heapSizeSuggestion >
RtsFlags.GcFlags.maxHeapSize) {
+ errorBelch("Maximum heap size (-M) is smaller than suggested heap size (-H)\n"
+ "Setting maximum heap size to suggested heap size ( %" FMT_Word64 " )",
+ (StgWord64) RtsFlags.GcFlags.maxHeapSize * (StgWord64) BLOCK_SIZE);
RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
}
--
GitLab