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

Update barrier functions to also have the object being written

Browse source 
Also remove read barriers, as they were unused, and we have no plans to
use them.
This commit is contained in:
Andy Wingo 2022-07-31 21:30:59 +02:00
parent 7f405c929e
commit 13b3bb5b24
5 changed files with 11 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
quads.c
View file

@ -49,7 +49,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((void**)&result->kids[i], HANDLE_REF(kids[i]));
init_field(result, (void**)&result->kids[i], HANDLE_REF(kids[i]));
for (size_t i = 0; i < 4; i++)
POP_HANDLE(mut);