mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 12:20:26 +02:00
23 lines
475 B
C
23 lines
475 B
C
#ifndef GC_EDGE_H
|
|
#define GC_EDGE_H
|
|
|
|
#include "gc-ref.h"
|
|
|
|
struct gc_edge {
|
|
struct gc_ref *dst;
|
|
};
|
|
|
|
static inline struct gc_edge gc_edge(void* addr) {
|
|
return (struct gc_edge){addr};
|
|
}
|
|
static inline struct gc_ref gc_edge_ref(struct gc_edge edge) {
|
|
return *edge.dst;
|
|
}
|
|
static inline struct gc_ref* gc_edge_loc(struct gc_edge edge) {
|
|
return edge.dst;
|
|
}
|
|
static inline void gc_edge_update(struct gc_edge edge, struct gc_ref ref) {
|
|
*edge.dst = ref;
|
|
}
|
|
|
|
#endif // GC_EDGE_H
|