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

Mark blocks that are targets of evacuation

Browse source
This commit is contained in:
Andy Wingo 2024-08-25 08:58:55 +02:00
parent 7b4a56c51a
commit 59c9f5dff9
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/nofl-space.h
View file

@ -1271,7 +1271,8 @@ nofl_space_evacuate(struct nofl_space *space, uint8_t *metadata, uint8_t byte,
uint8_t *new_metadata = nofl_metadata_byte_for_object(new_ref); uint8_t *new_metadata = nofl_metadata_byte_for_object(new_ref);
memcpy(new_metadata + 1, metadata + 1, object_granules - 1); memcpy(new_metadata + 1, metadata + 1, object_granules - 1);
gc_edge_update(edge, new_ref); gc_edge_update(edge, new_ref);
return nofl_space_set_mark(space, new_metadata, byte); return nofl_space_set_nonempty_mark(space, new_metadata, byte,
new_ref);
} else { } else {
// Well shucks; allocation failed, marking the end of // Well shucks; allocation failed, marking the end of
// opportunistic evacuation. No future evacuation of this // opportunistic evacuation. No future evacuation of this