FEAT: Optimize memory usage by avoiding power-of-2 rounding when resi…

…zing large series
Oldes · Jan 31, 2025 · 96b13b8 · 96b13b8
1 parent 7db98cd
commit 96b13b8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/m-pools.c b/src/core/m-pools.c
@@ -545,7 +545,7 @@ FORCE_INLINE
 		if (powerof2) {
 			U32_ROUND_UP_POWER_OF_2(length);
 		} else
-			length = ALIGN(length, 2048);
+			length = ALIGN(length, 1024);
 #ifdef DEBUGGING
 			Debug_Num("Alloc2:", length);
 #endif

diff --git a/src/core/m-series.c b/src/core/m-series.c
@@ -119,7 +119,7 @@
 			Trap0(RE_PAST_END);
 		}
 
-		newser = Make_Series(new_size, wide, TRUE);
+		newser = Make_Series(new_size, wide, new_size < 512*1024);
 		// If necessary, add series to the recently expanded list:
 		if (Prior_Expand[n] != series) {
 			n = (REBUPT)(Prior_Expand[0]) + 1;