314 lines
6.6 KiB
C
314 lines
6.6 KiB
C
#ifndef GC_H_6b8a27c99f2eb5eb5437e045fa4af1c3
|
|
#define GC_H_6b8a27c99f2eb5eb5437e045fa4af1c3
|
|
|
|
#include <assert.h>
|
|
#include <inttypes.h>
|
|
#include <stdbool.h>
|
|
#include <stdio.h>
|
|
#include <time.h>
|
|
|
|
#ifndef NDEBUG
|
|
# define debug(printf_args) ((void)printf printf_args)
|
|
#else
|
|
# define debug(printf_args) ((void)0)
|
|
#endif
|
|
|
|
typedef uintptr_t value_t;
|
|
typedef intptr_t fixnum_t;
|
|
|
|
/* NIL: 00000000 00000000 00000000 00000000 */
|
|
/* Object: aaaaaaaa aaaaaaaa aaaaaaaa aaaaaa00 (where aa... >= 1024) */
|
|
/* Pair: aaaaaaaa aaaaaaaa aaaaaaaa aaaaaa10 */
|
|
/* Fixnum: snnnnnnn nnnnnnnn nnnnnnnn nnnnnnn1 */
|
|
|
|
#define NIL ((value_t)0)
|
|
|
|
/* Special values (0 <= n < 1024) */
|
|
/* These correspond to objects within the first page of memory */
|
|
#define SPECIAL_VALUE(n) ((value_t)(4*(n)+2))
|
|
#define TYPE_TAG(n) SPECIAL_VALUE(768+(n))
|
|
#define MAX_SPECIAL SPECIAL_VALUE(1023)
|
|
|
|
#define BROKEN_HEART SPECIAL_VALUE(0)
|
|
#define FALSE_VALUE SPECIAL_VALUE(1)
|
|
#define TRUE_VALUE SPECIAL_VALUE(2)
|
|
|
|
#define TYPE_TAG_BOX TYPE_TAG(0)
|
|
#define TYPE_TAG_VECTOR TYPE_TAG(1)
|
|
#define TYPE_TAG_BYTESTR TYPE_TAG(2)
|
|
#define TYPE_TAG_STRUCT TYPE_TAG(3)
|
|
#define TYPE_TAG_WEAK_BOX TYPE_TAG(4)
|
|
#define TYPE_TAG_WILL TYPE_TAG(5)
|
|
|
|
#define CAR(x) (get_pair(x)->car)
|
|
#define CDR(x) (get_pair(x)->cdr)
|
|
#define CADR(x) CAR(CDR(x))
|
|
#define CDDR(x) CDR(CDR(x))
|
|
|
|
#define _CAR(x) (_get_pair(x)->car)
|
|
#define _CDR(x) (_get_pair(x)->cdr)
|
|
#define _CADR(x) _CAR(_CDR(x))
|
|
#define _CDDR(x) _CDR(_CDR(x))
|
|
|
|
typedef struct object
|
|
{
|
|
value_t tag;
|
|
value_t forward; /* only if tag == BROKEN_HEART */
|
|
} object_t;
|
|
|
|
/* CAR is anything *other* than a valid type tag or BROKEN_HEART. */
|
|
typedef struct pair
|
|
{
|
|
value_t car;
|
|
value_t cdr;
|
|
} pair_t;
|
|
|
|
typedef struct box
|
|
{
|
|
value_t tag; /* TYPE_TAG_BOX */
|
|
value_t value;
|
|
} box_t;
|
|
|
|
typedef struct vector
|
|
{
|
|
value_t tag; /* TYPE_TAG_VECTOR */
|
|
size_t size;
|
|
value_t elements[0];
|
|
} vector_t;
|
|
|
|
typedef struct byte_string
|
|
{
|
|
value_t tag; /* TYPE_TAG_BYTESTR */
|
|
size_t size;
|
|
uint8_t bytes[0];
|
|
} byte_string_t;
|
|
|
|
/* Equivalent to vector_t */
|
|
typedef struct structure
|
|
{
|
|
value_t tag; /* TYPE_TAG_STRUCT */
|
|
value_t type;
|
|
size_t nslots;
|
|
value_t slots[0];
|
|
} struct_t;
|
|
|
|
typedef struct weak_box
|
|
{
|
|
value_t tag;
|
|
value_t value;
|
|
value_t next;
|
|
} weak_box_t;
|
|
|
|
typedef struct will
|
|
{
|
|
value_t tag;
|
|
value_t value;
|
|
value_t finalizer;
|
|
value_t next;
|
|
} will_t;
|
|
|
|
typedef struct gc_root
|
|
{
|
|
value_t value;
|
|
struct gc_root *prev;
|
|
struct gc_root *next;
|
|
} gc_root_t;
|
|
|
|
typedef uint64_t nsec_t;
|
|
|
|
typedef struct gc_stats
|
|
{
|
|
int collections;
|
|
nsec_t total_ns;
|
|
uint64_t total_freed;
|
|
size_t high_water;
|
|
nsec_t max_ns;
|
|
} gc_stats_t;
|
|
|
|
extern gc_stats_t gc_stats;
|
|
|
|
object_t *get_object(value_t v);
|
|
|
|
pair_t *get_pair(value_t pair);
|
|
value_t cons(value_t car, value_t cdr);
|
|
|
|
value_t make_box(value_t initial_value);
|
|
box_t *get_box(value_t v);
|
|
|
|
value_t make_vector(size_t elements, value_t default_value);
|
|
vector_t *get_vector(value_t v);
|
|
|
|
value_t make_byte_string(size_t size, int default_value);
|
|
byte_string_t *get_byte_string(value_t v);
|
|
|
|
value_t make_struct(value_t type, size_t nslots);
|
|
struct_t *get_struct(value_t v);
|
|
|
|
value_t make_weak_box(value_t value);
|
|
weak_box_t *get_weak_box(value_t v);
|
|
|
|
/* Finalizers are register-and-forget; there should be no external references to wills. */
|
|
void register_finalizer(value_t value, value_t finalizer);
|
|
bool are_finalizers_pending(void);
|
|
|
|
/* If *value == #f on return there are no more finalizers. */
|
|
void get_next_finalizer(value_t *value, value_t *finalizer);
|
|
|
|
fixnum_t get_fixnum(value_t v);
|
|
|
|
/****************************************************************************/
|
|
|
|
static inline bool is_nil(value_t v)
|
|
{
|
|
return v == NIL;
|
|
}
|
|
|
|
static inline bool is_false(value_t v)
|
|
{
|
|
return v == FALSE_VALUE;
|
|
}
|
|
|
|
static inline bool is_true(value_t v)
|
|
{
|
|
return v != FALSE_VALUE;
|
|
}
|
|
|
|
static inline bool is_boolean(value_t v)
|
|
{
|
|
return (v == FALSE_VALUE) || (v == TRUE_VALUE);
|
|
}
|
|
|
|
static inline value_t object_value(void *obj)
|
|
{
|
|
assert((uintptr_t)obj >= 4096);
|
|
assert(((uintptr_t)obj & 3) == 0);
|
|
return (value_t)obj;
|
|
}
|
|
|
|
static inline bool is_object(value_t v)
|
|
{
|
|
/* Neither pairs nor other objects can exist below (void*)4096. */
|
|
return ((v & 0x1) == 0) && (v > MAX_SPECIAL);
|
|
}
|
|
|
|
/* Pairs are a type of object, but the value representation is different */
|
|
static inline object_t *_get_object(value_t v)
|
|
{
|
|
return (object_t*)(v & ~(value_t)3);
|
|
}
|
|
|
|
static inline value_t pair_value(pair_t *p)
|
|
{
|
|
assert((uintptr_t)p >= 4096);
|
|
assert(((uintptr_t)p & 3) == 0);
|
|
return (value_t)p + 2;
|
|
}
|
|
|
|
static inline bool is_pair(value_t v)
|
|
{
|
|
return ((v & 0x3) == 2);
|
|
}
|
|
|
|
static inline pair_t *_get_pair(value_t v)
|
|
{
|
|
return (pair_t*)_get_object(v);
|
|
}
|
|
|
|
static inline bool is_list(value_t v)
|
|
{
|
|
return is_nil(v) || is_pair(v);
|
|
}
|
|
|
|
static inline bool is_box(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_BOX);
|
|
}
|
|
|
|
static inline box_t *_get_box(value_t v)
|
|
{
|
|
return (box_t*)_get_object(v);
|
|
}
|
|
|
|
static inline bool is_vector(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_VECTOR);
|
|
}
|
|
|
|
static inline vector_t *_get_vector(value_t v)
|
|
{
|
|
return (vector_t*)_get_object(v);
|
|
}
|
|
|
|
static inline size_t vector_size(value_t v)
|
|
{
|
|
return get_vector(v)->size;
|
|
}
|
|
|
|
static inline bool is_byte_string(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_BYTESTR);
|
|
}
|
|
|
|
static inline byte_string_t *_get_byte_string(value_t v)
|
|
{
|
|
return (byte_string_t*)_get_object(v);
|
|
}
|
|
|
|
static inline size_t byte_string_size(value_t v)
|
|
{
|
|
return get_byte_string(v)->size;
|
|
}
|
|
|
|
static inline bool is_struct(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_STRUCT);
|
|
}
|
|
|
|
static inline struct_t *_get_struct(value_t v)
|
|
{
|
|
return (struct_t*)_get_object(v);
|
|
}
|
|
|
|
static inline bool is_weak_box(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_WEAK_BOX);
|
|
}
|
|
|
|
static inline weak_box_t *_get_weak_box(value_t v)
|
|
{
|
|
return (weak_box_t*)_get_object(v);
|
|
}
|
|
|
|
static inline bool is_will(value_t v)
|
|
{
|
|
return is_object(v) && (_get_object(v)->tag == TYPE_TAG_WILL);
|
|
}
|
|
|
|
static inline bool is_fixnum(value_t v)
|
|
{
|
|
return (v & 1) != 0;
|
|
}
|
|
|
|
static inline value_t make_fixnum(fixnum_t n)
|
|
{
|
|
return (value_t)(n << 1) | 1;
|
|
}
|
|
|
|
static inline fixnum_t _get_fixnum(value_t n)
|
|
{
|
|
return ((fixnum_t)n) >> 1;
|
|
}
|
|
|
|
void gc_init(size_t min_size, size_t max_size);
|
|
void register_gc_root(gc_root_t *root, value_t v);
|
|
void unregister_gc_root(gc_root_t *root);
|
|
void *gc_alloc(size_t nbytes);
|
|
void collect_garbage(size_t min_free);
|
|
bool set_gc_enabled(bool enable);
|
|
|
|
/* To be provided by the main application */
|
|
void out_of_memory(void) __attribute__ ((noreturn));
|
|
|
|
#endif
|
|
/* vim:set sw=2 expandtab: */
|