run-time: Correct MVFF pool creation usage

* sources/lib/run-time/collector.c (MISCMAXSIZE): Remove. * sources/lib/run-time/mps-collector.c (dylan_init_memory_manager): Pass arguments required by the MVFF pool class to mps_pool_create.
housel · Jun 18, 2023 · 8ae2597 · 8ae2597
1 parent 6aaa725
commit 8ae2597
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/sources/lib/run-time/collector.c b/sources/lib/run-time/collector.c
@@ -79,7 +79,6 @@ typedef intptr_t DSINT;
 
 #define MISCEXTENDBY    ((size_t)16384)
 #define MISCAVGSIZE     ((size_t)32)
-#define MISCMAXSIZE     ((size_t)65536)
 
 static void report_runtime_error (char* header, char* message);
 

diff --git a/sources/lib/run-time/mps-collector.c b/sources/lib/run-time/mps-collector.c
@@ -1574,7 +1574,9 @@ MMError dylan_init_memory_manager(void)
   /* Create the MVFF pool for miscellaneous objects. */
   /* This is also used for wrappers. */
   res = mps_pool_create(&misc_pool, arena, mps_class_mvff(),
-                        MISCEXTENDBY, MISCAVGSIZE, MISCMAXSIZE);
+                        MISCEXTENDBY, MISCAVGSIZE,
+                        (size_t) 16,
+                        TRUE, TRUE, TRUE);
   if (res) { init_error("create misc pool"); return(res); }
 
   wrapper_pool = misc_pool;