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

copy-space: Fix bug computing field logging byte location

Browse source 
Also re-enable survivors in generational-pcc :)
This commit is contained in:
Andy Wingo 2025-01-13 09:12:34 +01:00
parent 27f9a1f01e
commit b37a7f3862
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/copy-space.h
View file

@ -346,7 +346,7 @@ copy_space_field_logged_byte(struct gc_edge edge) {
base += offsetof(struct copy_space_slab, blocks);
uintptr_t field = (addr & (COPY_SPACE_SLAB_SIZE - 1)) / sizeof(uintptr_t);
uintptr_t byte = field / 8;
return (uint8_t*) (base + field);
return (uint8_t*) (base + byte);
}
static uint8_t