Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

* mps/code/poolamc.c (AMCBufInit): Accept optional MPS_KEY_GEN arg.

Browse source
This commit is contained in:
Helmut Eller 2025-11-17 20:57:18 +01:00
parent 917138da6d
commit 0d79158b3b
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mps/code/poolamc.c
View file

@ -519,8 +519,13 @@ static Res AMCBufInit(Buffer buffer, Pool pool, Bool isMutator, ArgList args)
amcbuf = CouldBeA(amcBuf, buffer);
if (BufferIsMutator(buffer)) {
/* Set up the buffer to be allocating in the nursery. */
amcbuf->gen = amc->nursery;
if (ArgPick(&arg, args, MPS_KEY_GEN)) {
unsigned gen = arg.val.u;
amcbuf->gen = amc->gen[gen];
} else {
/* Set up the buffer to be allocating in the nursery. */
amcbuf->gen = amc->nursery;
}
} else {
/* No gen yet -- see <design/poolamc#.gen.forward>. */
amcbuf->gen = NULL;