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

Fix optdebug warnings

Browse source
This commit is contained in:
Andy Wingo 2023-10-18 15:13:27 +02:00
parent 9ce8ee2921
commit 8aa2036331
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
benchmarks/mt-gcbench.c
View file

@ -205,14 +205,14 @@ static Node* make_tree(struct thread *t, int depth) {
static void validate_tree(Node *tree, int depth) {
#ifndef NDEBUG
ASSERT_EQ(tree->i, 0);
ASSERT_EQ(tree->j, depth);
GC_ASSERT_EQ(tree->i, 0);
GC_ASSERT_EQ(tree->j, depth);
if (depth == 0) {
ASSERT(!tree->left);
ASSERT(!tree->right);
GC_ASSERT(!tree->left);
GC_ASSERT(!tree->right);
} else {
ASSERT(tree->left);
ASSERT(tree->right);
GC_ASSERT(tree->left);
GC_ASSERT(tree->right);
validate_tree(tree->left, depth - 1);
validate_tree(tree->right, depth - 1);
}

2
src/whippet.c
View file

@ -1410,7 +1410,7 @@ static void mark_space_clear_remembered_set(struct mark_space *space) {
void gc_write_barrier_extern(struct gc_ref obj, size_t obj_size,
struct gc_edge edge, struct gc_ref new_val) {
GC_ASSERT(size > gc_allocator_large_threshold());
GC_ASSERT(obj_size > gc_allocator_large_threshold());
gc_object_set_remembered(obj);
}