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

Explicitly support immediate values

Browse source 
Because we have to deref edges ourselves, as part of generational
marking, we need to ignore edges that don't point to heap objects.
This commit is contained in:
Andy Wingo 2024-10-04 11:40:09 +02:00
parent 10017daa0c
commit b5c36b9fd8
10 changed files with 57 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

15
api/gc-ref.h
View file

@ -2,6 +2,7 @@
#define GC_REF_H
#include "gc-assert.h"
#include "gc-config.h"
#include <stdint.h>
@ -19,8 +20,20 @@ static inline uintptr_t gc_ref_value(struct gc_ref ref) {
static inline struct gc_ref gc_ref_null(void) {
return gc_ref(0);
}
static inline int gc_ref_is_null(struct gc_ref ref) {
return ref.value == 0;
}
static inline int gc_ref_is_immediate(struct gc_ref ref) {
GC_ASSERT(!gc_ref_is_null(ref));
return GC_HAS_IMMEDIATES && (ref.value & (sizeof(void*) - 1));
}
static inline struct gc_ref gc_ref_immediate(uintptr_t val) {
GC_ASSERT(val & (sizeof(void*) - 1));
GC_ASSERT(GC_HAS_IMMEDIATES);
return gc_ref(val);
}
static inline int gc_ref_is_heap_object(struct gc_ref ref) {
return ref.value != 0;
return !gc_ref_is_immediate(ref);
}
static inline struct gc_ref gc_ref_from_heap_object_or_null(void *obj) {
return gc_ref((uintptr_t) obj);