|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401 |
- #include "vm/vm.h"
-
- #include <string.h>
-
- #include <stdio.h>
-
- static l2_word alloc_val(struct l2_vm *vm) {
- size_t id = l2_bitset_set_next(&vm->valueset);
- if (id >= vm->valuessize) {
- if (vm->valuessize == 0) {
- vm->valuessize = 16;
- }
-
- while (id > vm->valuessize) {
- vm->valuessize *= 2;
- }
-
- vm->values = realloc(vm->values, sizeof(*vm->values) * vm->valuessize);
- }
-
- return (l2_word)id;
- }
-
- static float u32_to_float(uint32_t num) {
- float f;
- memcpy(&f, &num, sizeof(num));
- return f;
- }
-
- static double u32s_to_double(uint32_t high, uint32_t low) {
- double d;
- uint64_t num = (uint64_t)high << 32 | (uint64_t)low;
- memcpy(&d, &num, sizeof(num));
- return d;
- }
-
- static void gc_mark_array(struct l2_vm *vm, struct l2_vm_value *val);
- static void gc_mark_namespace(struct l2_vm *vm, struct l2_vm_value *val);
-
- static void gc_mark(struct l2_vm *vm, l2_word id) {
- struct l2_vm_value *val = &vm->values[id];
- if (val->flags & L2_VAL_MARKED) {
- return;
- }
-
- printf("GC MARK %i\n", id);
- val->flags |= L2_VAL_MARKED;
-
- int typ = l2_vm_value_type(val);
- if (typ == L2_VAL_TYPE_ARRAY) {
- gc_mark_array(vm, val);
- } else if (typ == L2_VAL_TYPE_NAMESPACE) {
- gc_mark_namespace(vm, val);
- } else if (typ == L2_VAL_TYPE_FUNCTION) {
- gc_mark(vm, val->func.namespace);
- }
- }
-
- static void gc_mark_array(struct l2_vm *vm, struct l2_vm_value *val) {
- if (val->data == NULL) {
- return;
- }
-
- struct l2_vm_array *arr = (struct l2_vm_array *)val->data;
- for (size_t i = 0; i < arr->len; ++i) {
- gc_mark(vm, arr->data[i]);
- }
- }
-
- static void gc_mark_namespace(struct l2_vm *vm, struct l2_vm_value *val) {
- if (val->data == NULL) {
- return;
- }
-
- struct l2_vm_namespace *ns = (struct l2_vm_namespace *)val->data;
- for (size_t i = 0; i < ns->size; ++i) {
- l2_word key = ns->data[i];
- if (key == 0 || key == ~(l2_word)0) {
- continue;
- }
-
- gc_mark(vm, ns->data[ns->size + i]);
- }
-
- if (ns->parent != 0) {
- gc_mark(vm, ns->parent);
- }
- }
-
- static void gc_free(struct l2_vm *vm, l2_word id) {
- struct l2_vm_value *val = &vm->values[id];
- l2_bitset_unset(&vm->valueset, id);
-
- int typ = l2_vm_value_type(val);
- if (typ == L2_VAL_TYPE_ARRAY || typ == L2_VAL_TYPE_BUFFER || typ == L2_VAL_TYPE_NAMESPACE) {
- free(val->data);
- // Don't need to do anything more; the next round of GC will free
- // whichever values were only referenced by the array
- }
- }
-
- static size_t gc_sweep(struct l2_vm *vm) {
- size_t freed = 0;
- // Skip ID 0, because that should always exist
- for (size_t i = 1; i < vm->valuessize; ++i) {
- if (!l2_bitset_get(&vm->valueset, i)) {
- continue;
- }
-
- struct l2_vm_value *val = &vm->values[i];
- if (!(val->flags & L2_VAL_MARKED)) {
- printf("GC FREE %zi\n", i);
- gc_free(vm, i);
- freed += 1;
- } else {
- val->flags &= ~L2_VAL_MARKED;
- }
- }
- return freed;
- }
-
- void l2_vm_init(struct l2_vm *vm, l2_word *ops, size_t opcount) {
- vm->ops = ops;
- vm->opcount = opcount;
- vm->iptr = 0;
- vm->sptr = 0;
- vm->nsptr = 0;
-
- vm->values = NULL;
- vm->valuessize = 0;
- l2_bitset_init(&vm->valueset);
-
- // It's wasteful to allocate new 'none' variables all the time,
- // variable ID 0 should be the only 'none' variable in the system
- l2_word none_id = alloc_val(vm);
- vm->values[none_id].flags = L2_VAL_TYPE_NONE | L2_VAL_CONST;
-
- // Need to allocate a root namespace
- l2_word root = alloc_val(vm);
- vm->values[root].flags = L2_VAL_TYPE_NAMESPACE;
- vm->values[root].data = NULL; // Will be allocated on first insert
- vm->nstack[vm->nsptr] = root;
- vm->nsptr += 1;
- }
-
- void l2_vm_free(struct l2_vm *vm) {
- // Skip ID 0, because that's always NONE
- for (size_t i = 1; i < vm->valuessize; ++i) {
- if (!l2_bitset_get(&vm->valueset, i)) {
- continue;
- }
-
- gc_free(vm, i);
- }
-
- free(vm->values);
- l2_bitset_free(&vm->valueset);
- }
-
- size_t l2_vm_gc(struct l2_vm *vm) {
- for (l2_word nsptr = 0; nsptr < vm->nsptr; ++nsptr) {
- struct l2_vm_value *val = &vm->values[vm->nstack[nsptr]];
- val->flags |= L2_VAL_MARKED;
- gc_mark_namespace(vm, val);
- }
-
- return gc_sweep(vm);
- }
-
- void l2_vm_run(struct l2_vm *vm) {
- while ((enum l2_opcode)vm->ops[vm->iptr] != L2_OP_HALT) {
- l2_vm_step(vm);
- }
- }
-
- void l2_vm_step(struct l2_vm *vm) {
- enum l2_opcode opcode = (enum l2_opcode)vm->ops[vm->iptr++];
-
- l2_word word;
- switch (opcode) {
- case L2_OP_NOP:
- break;
-
- case L2_OP_PUSH:
- vm->stack[vm->sptr] = vm->ops[vm->iptr];
- vm->sptr += 1;
- vm->iptr += 1;
- break;
-
- case L2_OP_PUSH_2:
- vm->stack[vm->sptr] = vm->ops[vm->iptr];
- vm->stack[vm->sptr + 1] = vm->ops[vm->iptr + 1];
- vm->sptr += 2;
- vm->iptr += 2;
- break;
-
- case L2_OP_POP:
- vm->sptr -= 1;
- break;
-
- case L2_OP_DUP:
- vm->stack[vm->sptr] = vm->ops[vm->sptr - 1];
- vm->sptr += 1;
- break;
-
- case L2_OP_ADD:
- vm->stack[vm->sptr - 2] += vm->stack[vm->sptr - 1];
- vm->sptr -= 1;
- break;
-
- case L2_OP_FUNC_CALL:
- {
- l2_word func_id = vm->stack[--vm->sptr];
- l2_word argc = vm->stack[--vm->sptr];
- struct l2_vm_value *func = &vm->values[func_id];
-
- l2_word arr_id = alloc_val(vm);
- vm->values[arr_id].flags = L2_VAL_TYPE_ARRAY;
- vm->values[arr_id].data = malloc(
- sizeof(struct l2_vm_array) + sizeof(l2_word) * argc);
- struct l2_vm_array *arr = vm->values[arr_id].data;
- arr->len = argc;
- arr->size = argc;
-
- vm->sptr -= argc;
- for (l2_word i = 0; i < argc; ++i) {
- arr->data[i] = vm->stack[vm->sptr + i];
- }
-
- enum l2_value_flags typ = l2_vm_value_type(func);
-
- // C functions are called differently from language functions
- if (typ == L2_VAL_TYPE_CFUNCTION) {
- vm->stack[vm->sptr++] = func->cfunc(vm, arr);
- break;
- }
-
- // Don't interpret a non-function as a function
- if (typ != L2_VAL_TYPE_FUNCTION) {
- // TODO: Error mechanism
- break;
- }
-
- vm->stack[vm->sptr++] = vm->iptr;
- vm->stack[vm->sptr++] = arr_id;
-
- l2_word ns_id = alloc_val(vm);
- vm->values[ns_id].flags = L2_VAL_TYPE_NAMESPACE;
- vm->values[ns_id].data = calloc(1, sizeof(struct l2_vm_namespace));
- struct l2_vm_namespace *ns = vm->values[ns_id].data;
- ns->parent = func->func.namespace;
- vm->nstack[vm->nsptr++] = ns_id;
-
- vm->iptr = func->func.pos;
- }
- break;
-
- case L2_OP_RJMP:
- word = vm->stack[vm->sptr - 1];
- vm->sptr -= 1;
- vm->iptr += word;
- break;
-
- case L2_OP_STACK_FRAME_LOOKUP:
- {
- l2_word key = vm->stack[vm->sptr - 1];
- struct l2_vm_value *ns = &vm->values[vm->nstack[vm->nsptr - 1]];
- vm->stack[vm->sptr - 1] = l2_vm_namespace_get(vm, ns, key);
- }
- break;
-
- case L2_OP_STACK_FRAME_SET:
- {
- l2_word key = vm->stack[vm->sptr - 1];
- l2_word val = vm->stack[vm->sptr - 2];
- struct l2_vm_value *ns = &vm->values[vm->nstack[vm->nsptr - 1]];
- l2_vm_namespace_set(ns, key, val);
- vm->sptr -= 1;
- }
- break;
-
- case L2_OP_RET:
- {
- l2_word retval = vm->stack[--vm->sptr];
- vm->sptr -= 1; // Discard arguments array
- l2_word retaddr = vm->stack[--vm->sptr];
- vm->stack[vm->sptr++] = retval;
- vm->nsptr -= 1; // Pop function stack frame
- vm->iptr = retaddr;
- }
- break;
-
- case L2_OP_ALLOC_INTEGER_32:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_INTEGER;
- vm->values[word].integer = vm->stack[--vm->sptr];
- vm->stack[vm->sptr++] = word;
- break;
-
- case L2_OP_ALLOC_INTEGER_64:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_INTEGER;
- vm->values[word].integer = (int64_t)(
- (uint64_t)vm->stack[vm->sptr - 1] << 32 |
- (uint64_t)vm->stack[vm->sptr - 2]);
- vm->sptr -= 2;
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_ALLOC_REAL_32:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_REAL;
- vm->values[word].real = u32_to_float(vm->stack[--vm->sptr]);
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_ALLOC_REAL_64:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_REAL;
- vm->values[word].real = u32s_to_double(vm->stack[vm->sptr - 1], vm->stack[vm->sptr - 2]);
- vm->sptr -= 2;
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_ALLOC_BUFFER_STATIC:
- {
- word = alloc_val(vm);
- l2_word length = vm->stack[--vm->sptr];
- l2_word offset = vm->stack[--vm->sptr];
- vm->values[word].flags = L2_VAL_TYPE_BUFFER;
- vm->values[word].data = malloc(sizeof(struct l2_vm_buffer) + length);
- ((struct l2_vm_buffer *)vm->values[word].data)->len = length;
- memcpy(
- (unsigned char *)vm->values[word].data + sizeof(struct l2_vm_buffer),
- vm->ops + offset, length);
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- }
- break;
-
- case L2_OP_ALLOC_BUFFER_ZERO:
- {
- word = alloc_val(vm);
- l2_word length = vm->stack[--vm->sptr];
- vm->values[word].flags = L2_VAL_TYPE_BUFFER;
- vm->values[word].data = calloc(1, sizeof(struct l2_vm_buffer) + length);
- ((struct l2_vm_buffer *)vm->values[word].data)->len = length;
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- }
- break;
-
- case L2_OP_ALLOC_ARRAY:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_ARRAY;
- vm->values[word].data = NULL; // Will be allocated on first insert
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_ALLOC_NAMESPACE:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_NAMESPACE;
- vm->values[word].data = NULL; // Will be allocated on first insert
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_ALLOC_FUNCTION:
- word = alloc_val(vm);
- vm->values[word].flags = L2_VAL_TYPE_FUNCTION;
- vm->values[word].func.pos = vm->stack[--vm->sptr];
- vm->values[word].func.namespace = vm->nstack[vm->nsptr - 1];
- vm->stack[vm->sptr] = word;
- vm->sptr += 1;
- break;
-
- case L2_OP_NAMESPACE_SET:
- {
- l2_word key = vm->stack[--vm->sptr];
- l2_word val = vm->stack[vm->sptr - 1];
- l2_word ns = vm->stack[vm->sptr - 2];
- l2_vm_namespace_set(&vm->values[ns], key, val);
- }
- break;
-
- case L2_OP_NAMESPACE_LOOKUP:
- {
- l2_word key = vm->stack[--vm->sptr];
- l2_word ns = vm->stack[--vm->sptr];
- vm->stack[vm->sptr++] = l2_vm_namespace_get(vm, &vm->values[ns], key);
- }
- break;
-
- case L2_OP_HALT:
- break;
- }
- }
|