mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-27 21:40:34 +02:00
Code Activity

Inline post-allocation actions

Browse source
This commit is contained in:
Andy Wingo 2022-08-15 16:00:01 +02:00
parent a75842be90
commit a00c83878e
6 changed files with 168 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

2
quads.c
View file

@ -51,7 +51,7 @@ static Quad* make_tree(struct mutator *mut, int depth) {
Quad *result = allocate_quad(mut);
for (size_t i = 0; i < 4; i++)
init_field(result, (void**)&result->kids[i], HANDLE_REF(kids[i]));
result->kids[i] = HANDLE_REF(kids[i]);
for (size_t i = 0; i < 4; i++)
POP_HANDLE(mut);