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

Fix regarding memset of block marks

Browse source
This commit is contained in:
Andy Wingo 2024-08-25 20:46:05 +02:00
parent 59c9f5dff9
commit 59b85abbda
1 changed files with 1 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/nofl-space.h
View file

@ -258,19 +258,6 @@ nofl_block_set_mark(uintptr_t addr) {
memory_order_relaxed);
}
static void
nofl_block_clear_mark(uintptr_t addr) {
uintptr_t base = align_down(addr, NOFL_SLAB_SIZE);
struct nofl_slab *slab = (struct nofl_slab *) base;
unsigned block_idx = (addr / NOFL_BLOCK_SIZE) % NOFL_BLOCKS_PER_SLAB;
uint8_t mark_byte = block_idx / 8;
GC_ASSERT(mark_byte < NOFL_HEADER_BYTES_PER_SLAB);
uint8_t mark_mask = 1U << (block_idx % 8);
atomic_fetch_and_explicit(&slab->header.block_marks[mark_byte],
~mark_mask,
memory_order_relaxed);
}
#define NOFL_GRANULES_PER_BLOCK (NOFL_BLOCK_SIZE / NOFL_GRANULE_SIZE)
#define NOFL_GRANULES_PER_REMSET_BYTE \
(NOFL_GRANULES_PER_BLOCK / NOFL_REMSET_BYTES_PER_BLOCK)
@ -934,7 +921,7 @@ static void
nofl_space_clear_block_marks(struct nofl_space *space) {
for (size_t s = 0; s < space->nslabs; s++) {
struct nofl_slab *slab = &space->slabs[s];
memset(&slab->header.block_marks, 0, NOFL_BLOCKS_PER_SLAB / 8);
memset(slab->header.block_marks, 0, NOFL_BLOCKS_PER_SLAB / 8);
}
}