| commit | 6d6525ebc962a34596e243f76b6a1297d9fb0784 | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Tue Jun 15 21:20:53 2021 -0700 |
| committer | swissChili <swisschili@fastmail.com> | Tue Jun 15 21:21:03 2021 -0700 |
| tree | 3bd110e5816b6dd427cac53a78abf8bfc04649b3 | |
| parent | 354663929e07efa7130b218b17ffe703559082de [diff] [blame] |
Add GC stub, let1
diff --git a/src/lisp/gc.c b/src/lisp/gc.c new file mode 100644 index 0000000..21e38e2 --- /dev/null +++ b/src/lisp/gc.c
@@ -0,0 +1,23 @@ +#include "gc.h" +#include "lisp.h" + +void _mark(unsigned int value) +{ + +} + +void _sweep() +{ + +} + +void _do_gc(unsigned int esp, unsigned int ebp) +{ + unsigned int *esp_p = (unsigned int *)esp, + *ebp_p = (unsigned int *)ebp; + + for (int i = 0; esp_p + i < ebp_p; i++) + { + _mark(esp_p[i]); + } +}