mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

nofl: Disable some consistency checks when tracing conservatively

Browse source
This commit is contained in:
Andy Wingo 2025-01-21 21:09:03 +01:00
parent f93777c133
commit 2a51399896
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/nofl-space.h
View file

@ -1222,6 +1222,10 @@ static void
nofl_space_verify_sweepable_blocks(struct nofl_space *space, nofl_space_verify_sweepable_blocks(struct nofl_space *space,
struct nofl_block_list *list) struct nofl_block_list *list)
{ {
if (GC_CONSERVATIVE_TRACE)
// No intrinsic way to measure object size, only the extrinsic
// metadata bytes.
return;
for (struct nofl_block_ref b = nofl_block_for_addr(list->blocks); for (struct nofl_block_ref b = nofl_block_for_addr(list->blocks);
!nofl_block_is_null(b); !nofl_block_is_null(b);
b = nofl_block_next(b)) { b = nofl_block_next(b)) {
@ -1254,6 +1258,10 @@ nofl_space_verify_sweepable_blocks(struct nofl_space *space,
static void static void
nofl_space_verify_swept_blocks(struct nofl_space *space, nofl_space_verify_swept_blocks(struct nofl_space *space,
struct nofl_block_list *list) { struct nofl_block_list *list) {
if (GC_CONSERVATIVE_TRACE)
// No intrinsic way to measure object size, only the extrinsic
// metadata bytes.
return;
for (struct nofl_block_ref b = nofl_block_for_addr(list->blocks); for (struct nofl_block_ref b = nofl_block_for_addr(list->blocks);
!nofl_block_is_null(b); !nofl_block_is_null(b);
b = nofl_block_next(b)) { b = nofl_block_next(b)) {