mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 02:00:22 +02:00
Code Activity

Add whippet-inline.h

Browse source
This commit is contained in:
Andy Wingo 2022-08-16 10:25:23 +02:00
parent 33aa5230da
commit 607585e7f0
2 changed files with 73 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

56
whippet-inline.h Normal file
View file

@ -0,0 +1,56 @@
#ifndef WHIPPET_INLINE_H
#define WHIPPET_INLINE_H
#include "gc-config.h"
#include "gc-api.h"
static inline enum gc_allocator_kind gc_allocator_kind(void) {
return GC_ALLOCATOR_INLINE_BUMP_POINTER;
}
static inline size_t gc_allocator_small_granule_size(void) {
return 16;
}
static inline size_t gc_allocator_large_threshold(void) {
return 8192;
}
static inline size_t gc_allocator_allocation_pointer_offset(void) {
return sizeof(uintptr_t) * 0;
}
static inline size_t gc_allocator_allocation_limit_offset(void) {
return sizeof(uintptr_t) * 1;
}
static inline size_t gc_allocator_freelist_offset(size_t size) {
abort();
}
static inline size_t gc_allocator_alloc_table_alignment(void) {
return 4 * 1024 * 1024;
}
static inline uint8_t gc_allocator_alloc_table_begin_pattern(void) {
return 1;
}
static inline uint8_t gc_allocator_alloc_table_end_pattern(void) {
return 16;
}
static inline int gc_allocator_needs_clear(void) {
return 0;
}
static inline enum gc_write_barrier_kind gc_small_write_barrier_kind(void) {
if (GC_GENERATIONAL)
return GC_WRITE_BARRIER_CARD;
return GC_WRITE_BARRIER_NONE;
}
static inline size_t gc_small_write_barrier_card_table_alignment(void) {
GC_ASSERT(GC_GENERATIONAL);
return 4 * 1024 * 1024;
}
static inline size_t gc_small_write_barrier_card_size(void) {
GC_ASSERT(GC_GENERATIONAL);
return 256;
}
#endif // WHIPPET_INLINE_H