mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +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) { static void validate_tree(Node *tree, int depth) {
#ifndef NDEBUG #ifndef NDEBUG
ASSERT_EQ(tree->i, 0); GC_ASSERT_EQ(tree->i, 0);
ASSERT_EQ(tree->j, depth); GC_ASSERT_EQ(tree->j, depth);
if (depth == 0) { if (depth == 0) {
ASSERT(!tree->left); GC_ASSERT(!tree->left);
ASSERT(!tree->right); GC_ASSERT(!tree->right);
} else { } else {
ASSERT(tree->left); GC_ASSERT(tree->left);
ASSERT(tree->right); GC_ASSERT(tree->right);
validate_tree(tree->left, depth - 1); validate_tree(tree->left, depth - 1);
validate_tree(tree->right, 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, void gc_write_barrier_extern(struct gc_ref obj, size_t obj_size,
struct gc_edge edge, struct gc_ref new_val) { 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); gc_object_set_remembered(obj);
} }