rooting

roots.c
View Options

			#include "ant.h"
			#include "gc.h"
			#include "arena.h"
			#include "internal.h"

			jshdl_t js_root(struct js *js, jsval_t val) {
			if (js->gc_roots_len >= js->gc_roots_cap) {
			jshdl_t new_cap = js->gc_roots_cap ? js->gc_roots_cap * 2 : GC_ROOTS_INITIAL_CAP;
			jsval_t new_roots = ant_realloc(js->gc_roots, new_cap sizeof(jsval_t));
			if (!new_roots) {
			fprintf(stderr, "FATAL: Out of memory allocating GC roots\n");
			abort();
			}
			js->gc_roots = new_roots;
			js->gc_roots_cap = new_cap;
			}
			jshdl_t idx = js->gc_roots_len++;
			js->gc_roots[idx] = val;
			return idx;
			}

			jsval_t js_deref(struct js *js, jshdl_t h) {
			if (h < 0 \|\| h >= js->gc_roots_len) return js_mkundef();
			return js->gc_roots[h];
			}

			void js_unroot(struct js *js, jshdl_t h) {
			if (h >= 0 && h == js->gc_roots_len - 1) js->gc_roots_len--;
			}

			void js_root_update(struct js *js, jshdl_t h, jsval_t val) {
			if (h >= 0 && h < js->gc_roots_len) js->gc_roots[h] = val;
			}