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

Add gc_edge data structure

Browse source 
Less casting in user programs, and it's a step on the way to evacuation
in whippet.
This commit is contained in:
Andy Wingo 2022-06-04 21:54:49 +02:00
parent 808d365f4b
commit 52166fe286
9 changed files with 81 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

13
parallel-tracer.h
View file

@ -452,10 +452,10 @@ static void tracer_release(struct heap *heap) {
}
struct gcobj;
static inline void tracer_visit(void **loc, void *trace_data) ALWAYS_INLINE;
static inline void tracer_visit(struct gc_edge edge, void *trace_data) ALWAYS_INLINE;
static inline void trace_one(struct gcobj *obj, void *trace_data) ALWAYS_INLINE;
static inline int trace_object(struct heap *heap,
struct gcobj *obj) ALWAYS_INLINE;
static inline int trace_edge(struct heap *heap,
struct gc_edge edge) ALWAYS_INLINE;
static inline void
tracer_share(struct local_tracer *trace) {
@ -465,13 +465,12 @@ tracer_share(struct local_tracer *trace) {
}
static inline void
tracer_visit(void **loc, void *trace_data) {
tracer_visit(struct gc_edge edge, void *trace_data) {
struct local_tracer *trace = trace_data;
struct gcobj *obj = *loc;
if (obj && trace_object(trace->heap, obj)) {
if (trace_edge(trace->heap, edge)) {
if (local_trace_queue_full(&trace->local))
tracer_share(trace);
local_trace_queue_push(&trace->local, obj);
local_trace_queue_push(&trace->local, dereference_edge(edge));
}
}