Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Read the MPS_KEY_ARENA_SIZE parameter from environment

Browse source 
The initial arena size can be set with EMACS_IGC_ARENA_SIZE=<bytes>.

* src/igc.c (read_arena_size): New function.
(make_arena): Use it.
This commit is contained in:
Helmut Eller 2025-11-28 20:17:39 +01:00
parent 8897e0e629
commit 4e446b2e60
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/igc.c
View file

@ -5214,6 +5214,21 @@ read_gens (size_t *ngens, mps_gen_param_s parms[*ngens])
emacs_abort ();
}
static bool
read_arena_size (size_t *size)
{
const char *env = getenv ("EMACS_IGC_ARENA_SIZE");
if (env == NULL)
return false;
char *end;
*size = strtoull (env, &end, 10);
bool ok = *end == '\0';
if (!ok)
fprintf (stderr, "Failed to parse EMACS_IGC_ARENA_SIZE: %s\n",
env);
return ok;
}
static void
make_arena (struct igc *gc)
{
@ -5221,6 +5236,9 @@ make_arena (struct igc *gc)
MPS_ARGS_BEGIN (args)
{
MPS_ARGS_ADD (args, MPS_KEY_PAUSE_TIME, 0.01);
size_t size;
if (read_arena_size (&size))
MPS_ARGS_ADD (args, MPS_KEY_ARENA_SIZE, size);
res = mps_arena_create_k (&gc->arena, mps_arena_class_vm (), args);
}
MPS_ARGS_END (args);