40 lines
1.7 KiB
C
40 lines
1.7 KiB
C
#include "../../runtime.h"
|
|
#include "../object.h"
|
|
#include <stdio.h>
|
|
#include <stddef.h>
|
|
#include <stdint.h>
|
|
#include <string.h>
|
|
|
|
ArgonObject *ARGON_FUNCTION_TYPE = NULL;
|
|
|
|
void init_function_type() {
|
|
ARGON_FUNCTION_TYPE = init_argon_class("Function");
|
|
}
|
|
|
|
void load_argon_function(Translated *translated, RuntimeState *state,
|
|
struct Stack stack) {
|
|
ArgonObject *object = init_child_argon_object(ARGON_FUNCTION_TYPE);
|
|
object->type = TYPE_FUNCTION;
|
|
uint64_t offset = pop_bytecode(translated, state);
|
|
uint64_t length = pop_bytecode(translated, state);
|
|
object->name = ar_alloc_atomic(length + 1);
|
|
memcpy(object->name, arena_get(&translated->constants, offset), length);
|
|
object->name[length] = '\0';
|
|
object->value.argon_fn.number_of_parameters = pop_bytecode(translated, state);
|
|
object->value.argon_fn.parameters =
|
|
ar_alloc(object->value.argon_fn.number_of_parameters * sizeof(char *));
|
|
for (size_t i = 0; i < object->value.argon_fn.number_of_parameters; i++) {
|
|
offset = pop_bytecode(translated, state);
|
|
length = pop_bytecode(translated, state);
|
|
object->value.argon_fn.parameters[i] = ar_alloc_atomic(length + 1);
|
|
memcpy(object->value.argon_fn.parameters[i], arena_get(&translated->constants, offset), length);
|
|
object->value.argon_fn.parameters[i][length] = '\0';
|
|
}
|
|
offset = pop_bytecode(translated, state);
|
|
length = pop_bytecode(translated, state);
|
|
darray_armem_init(&object->value.argon_fn.bytecode, sizeof(uint64_t));
|
|
darray_armem_resize(&object->value.argon_fn.bytecode, length/object->value.argon_fn.bytecode.element_size);
|
|
memcpy(object->value.argon_fn.bytecode.data, arena_get(&translated->constants, offset), length);
|
|
object->value.argon_fn.stack = stack;
|
|
state->registers[0]=object;
|
|
} |