mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-10 07:50:24 +02:00
8a51117763
We don't need a pin bit: we just need to mark pinned objects before evacuation starts. This way we can remove the stopping / marking race so that we can always mark while stopping.
50 lines
2.1 KiB
C
50 lines
2.1 KiB
C
#ifndef PRECISE_ROOTS_EMBEDDER_H
|
|
#define PRECISE_ROOTS_EMBEDDER_H
|
|
|
|
#include "gc-edge.h"
|
|
#include "precise-roots-types.h"
|
|
|
|
static inline int gc_has_conservative_roots(void) {
|
|
return 0;
|
|
}
|
|
static inline int gc_has_conservative_intraheap_edges(void) {
|
|
return 0;
|
|
}
|
|
|
|
static inline void visit_roots(struct handle *roots,
|
|
void (*trace_edge)(struct gc_edge edge,
|
|
void *trace_data),
|
|
void *trace_data) {
|
|
for (struct handle *h = roots; h; h = h->next)
|
|
trace_edge(gc_edge(&h->v), trace_data);
|
|
}
|
|
|
|
static inline void gc_trace_conservative_mutator_roots(struct gc_mutator_roots *roots,
|
|
void (*trace_ref)(struct gc_ref edge,
|
|
void *trace_data),
|
|
void *trace_data) {
|
|
}
|
|
|
|
static inline void gc_trace_precise_mutator_roots(struct gc_mutator_roots *roots,
|
|
void (*trace_edge)(struct gc_edge edge,
|
|
void *trace_data),
|
|
void *trace_data) {
|
|
if (roots)
|
|
visit_roots(roots->roots, trace_edge, trace_data);
|
|
}
|
|
|
|
static inline void gc_trace_conservative_heap_roots(struct gc_heap_roots *roots,
|
|
void (*trace_ref)(struct gc_ref ref,
|
|
void *trace_data),
|
|
void *trace_data) {
|
|
}
|
|
|
|
static inline void gc_trace_precise_heap_roots(struct gc_heap_roots *roots,
|
|
void (*trace_edge)(struct gc_edge edge,
|
|
void *trace_data),
|
|
void *trace_data) {
|
|
if (roots)
|
|
visit_roots(roots->roots, trace_edge, trace_data);
|
|
}
|
|
|
|
#endif // PRECISE_ROOTS_EMBEDDER_H
|