From 157c4722ca0022c400eae944927c52510e819742 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Tue, 19 Mar 2024 14:35:40 +0000
Subject: [PATCH] ui: increase chunk size for new allocations in core to 64mb
 (#3928)

---
 apps/ios/SimpleXChat/hs_init.c                                | 2 +-
 .../common/src/commonMain/cpp/android/simplex-api.c           | 2 +-
 .../common/src/commonMain/cpp/desktop/simplex-api.c           | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/apps/ios/SimpleXChat/hs_init.c b/apps/ios/SimpleXChat/hs_init.c
index 83056fccfe..adacd57310 100644
--- a/apps/ios/SimpleXChat/hs_init.c
+++ b/apps/ios/SimpleXChat/hs_init.c
@@ -15,7 +15,7 @@ void haskell_init(void) {
     char *argv[] = {
         "simplex",
         "+RTS", // requires `hs_init_with_rtsopts`
-        "-A16m", // chunk size for new allocations
+        "-A64m", // chunk size for new allocations
         "-H64m", // initial heap size
         "-xn", // non-moving GC
         0
diff --git a/apps/multiplatform/common/src/commonMain/cpp/android/simplex-api.c b/apps/multiplatform/common/src/commonMain/cpp/android/simplex-api.c
index d0581b4336..b9b5277aeb 100644
--- a/apps/multiplatform/common/src/commonMain/cpp/android/simplex-api.c
+++ b/apps/multiplatform/common/src/commonMain/cpp/android/simplex-api.c
@@ -36,7 +36,7 @@ Java_chat_simplex_common_platform_CoreKt_initHS(__unused JNIEnv *env, __unused j
     char *argv[] = {
         "simplex",
         "+RTS", // requires `hs_init_with_rtsopts`
-        "-A16m", // chunk size for new allocations
+        "-A64m", // chunk size for new allocations
         "-H64m", // initial heap size
         "-xn", // non-moving GC
         NULL
diff --git a/apps/multiplatform/common/src/commonMain/cpp/desktop/simplex-api.c b/apps/multiplatform/common/src/commonMain/cpp/desktop/simplex-api.c
index 90504e25c1..5c921c400d 100644
--- a/apps/multiplatform/common/src/commonMain/cpp/desktop/simplex-api.c
+++ b/apps/multiplatform/common/src/commonMain/cpp/desktop/simplex-api.c
@@ -10,10 +10,10 @@ JNIEXPORT void JNICALL
 Java_chat_simplex_common_platform_CoreKt_initHS(JNIEnv *env, jclass clazz) {
 #ifdef _WIN32
     int argc = 4;
-    char *argv[] = {"simplex", "+RTS", "-A16m", "-H64m", NULL}; // non-moving GC is broken on windows with GHC 9.4-9.6.3
+    char *argv[] = {"simplex", "+RTS", "-A64m", "-H64m", NULL}; // non-moving GC is broken on windows with GHC 9.4-9.6.3
 #else
     int argc = 5;
-    char *argv[] = {"simplex", "+RTS", "-A16m", "-H64m", "-xn", NULL}; // see android/simplex-api.c for details
+    char *argv[] = {"simplex", "+RTS", "-A64m", "-H64m", "-xn", NULL}; // see android/simplex-api.c for details
 #endif
     char **pargv = argv;
     hs_init_with_rtsopts(&argc, &pargv);