Git - code.swisschili.sh
code.swisschili.sh
/
bluejay
/
e9fec8be6c323b9705e807da460c555f202f641e
/
.
/
src
/
lisp
/
gc.h
blob: a75caddb3ee99f50dff82d4bd99e96e27a1b63f6 [
file
] [
log
] [
blame
]
#pragma
once
#include
"lisp.h"
// I hate this
extern
value_t
*
gc_base
;
void
gc_set_base_here
();
value_t
alloc_to_value
(
struct
alloc
*
a
);
void
_do_gc
(
unsigned
int
esp
,
unsigned
int
ebp
);
void
_mark
(
value_t
value
,
unsigned
int
*
marked
);
void
_sweep
();