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 unused API, outdated assertion

Browse source
This commit is contained in:
Andy Wingo 2023-10-17 21:45:06 +02:00
parent a6e34c3594
commit 9ce8ee2921
2 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
api/gc-api.h
View file

@ -179,12 +179,6 @@ static inline void* gc_allocate(struct gc_mutator *mut, size_t size) {
// FIXME: remove :P // FIXME: remove :P
GC_API_ void* gc_allocate_pointerless(struct gc_mutator *mut, size_t bytes); GC_API_ void* gc_allocate_pointerless(struct gc_mutator *mut, size_t bytes);
static inline void gc_small_write_barrier(struct gc_ref obj, struct gc_edge edge,
struct gc_ref new_val) GC_ALWAYS_INLINE;
static inline void gc_small_write_barrier(struct gc_ref obj, struct gc_edge edge,
struct gc_ref new_val) {
}
GC_API_ void gc_write_barrier_extern(struct gc_ref obj, size_t obj_size, GC_API_ void gc_write_barrier_extern(struct gc_ref obj, size_t obj_size,
struct gc_edge edge, struct gc_ref new_val) GC_NEVER_INLINE; struct gc_edge edge, struct gc_ref new_val) GC_NEVER_INLINE;

4
src/whippet.c
View file

@ -2386,8 +2386,8 @@ int gc_init(const struct gc_options *options, struct gc_stack_addr *stack_base,
GC_ASSERT_EQ(gc_allocator_alloc_table_begin_pattern(), METADATA_BYTE_YOUNG); GC_ASSERT_EQ(gc_allocator_alloc_table_begin_pattern(), METADATA_BYTE_YOUNG);
GC_ASSERT_EQ(gc_allocator_alloc_table_end_pattern(), METADATA_BYTE_END); GC_ASSERT_EQ(gc_allocator_alloc_table_end_pattern(), METADATA_BYTE_END);
if (GC_GENERATIONAL) { if (GC_GENERATIONAL) {
GC_ASSERT_EQ(gc_small_write_barrier_card_table_alignment(), SLAB_SIZE); GC_ASSERT_EQ(gc_write_barrier_card_table_alignment(), SLAB_SIZE);
GC_ASSERT_EQ(gc_small_write_barrier_card_size(), GC_ASSERT_EQ(gc_write_barrier_card_size(),
BLOCK_SIZE / REMSET_BYTES_PER_BLOCK); BLOCK_SIZE / REMSET_BYTES_PER_BLOCK);
} }