mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-12 00:30:20 +02:00
Code Activity

Fix bug ensuring zeroed memory

Browse source 
If the granule size is bigger than a pointer, we were leaving the first
granule uncleared.
This commit is contained in:
Andy Wingo 2022-05-01 14:45:25 +02:00
parent 7fc2fdbbf7
commit 83bf1d8cf3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mark-sweep.h
View file

@ -666,7 +666,7 @@ static int sweep(struct mark_space *space,
size_t free_granules = next_mark(mark, limit_granules);
if (free_granules) {
size_t free_bytes = free_granules * GRANULE_SIZE;
clear_memory(sweep + GRANULE_SIZE, free_bytes - GRANULE_SIZE);
clear_memory(sweep + sizeof(uintptr_t), free_bytes - sizeof(uintptr_t));
reclaim(space, small_objects, small_object_granules, (void*)sweep,
free_granules);
sweep += free_bytes;