mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-09 07:00:23 +02:00
fb71c4c363
The collector now has an abstract interface onto the embedder. The embedder has to supply some functionality, such as tracing and forwarding. This is a pretty big change in terms of lines but it's supposed to have no functional or performance change.
29 lines
844 B
C
29 lines
844 B
C
#ifndef SIMPLE_TAGGING_SCHEME_H
|
|
#define SIMPLE_TAGGING_SCHEME_H
|
|
|
|
#include <stdint.h>
|
|
|
|
struct gc_header {
|
|
uintptr_t tag;
|
|
};
|
|
|
|
// Alloc kind is in bits 1-7, for live objects.
|
|
static const uintptr_t gcobj_alloc_kind_mask = 0x7f;
|
|
static const uintptr_t gcobj_alloc_kind_shift = 1;
|
|
static const uintptr_t gcobj_forwarded_mask = 0x1;
|
|
static const uintptr_t gcobj_not_forwarded_bit = 0x1;
|
|
static const uintptr_t gcobj_busy = 0;
|
|
static inline uint8_t tag_live_alloc_kind(uintptr_t tag) {
|
|
return (tag >> gcobj_alloc_kind_shift) & gcobj_alloc_kind_mask;
|
|
}
|
|
static inline uintptr_t tag_live(uint8_t alloc_kind) {
|
|
return ((uintptr_t)alloc_kind << gcobj_alloc_kind_shift)
|
|
| gcobj_not_forwarded_bit;
|
|
}
|
|
|
|
static inline uintptr_t* tag_word(void *object) {
|
|
struct gc_header *header = object;
|
|
return &header->tag;
|
|
}
|
|
|
|
#endif // SIMPLE_TAGGING_SCHEME_H
|