st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes, performance check

Browse source
This commit is contained in:
ProgramSnail 2024-11-09 23:32:09 +03:00
parent 0ba3c33af5
commit 34675f0cb7
5 changed files with 40 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

29
byterun/src/interpreter.c
View file

@ -344,16 +344,18 @@ void run(bytefile *bf, int argc, char **argv) {
}
case 8: // ARRAY %d
Barray((aint *)s.sp, ip_read_int(&s.ip));
s_push_i(&s, Barray_patt(s_pop(&s), BOX(ip_read_int(&s.ip))));
break;
case 9: // FAIL %d %d
Bmatch_failure(s_pop(&s), argv[0], ip_read_int(&s.ip),
ip_read_int(&s.ip));
case 9: { // FAIL %d %d
int line = ip_read_int(&s.ip); // ??
int col = ip_read_int(&s.ip); // ??
Bmatch_failure(s_pop(&s), argv[0], BOX(line), BOX(col));
break;
}
case 10: // LINE %d
ip_read_int(&s.ip);
s.current_line = ip_read_int(&s.ip);
// maybe some metainfo should be collected
break;
@ -413,11 +415,22 @@ void run(bytefile *bf, int argc, char **argv) {
}
case 4: { // CALL Barray %d
size_t n = ip_read_int(&s.ip);
size_t elem_count = ip_read_int(&s.ip);
if (elem_count < 0) {
failure("ARRAY: elements count should be >= 0");
}
void **buffer = calloc(elem_count, sizeof(void *));
for (size_t i = 0; i < elem_count; ++i) {
buffer[elem_count - i - 1] = s_pop(&s);
}
void *array =
Barray((aint *)s.sp, n); // NOTE: not shure if elems should be added
s_popn(&s, n);
Barray((aint *)buffer, BOX(elem_count)); // NOTE: not shure if elems should be added
// s_popn(&s, elem_count);
s_push(&s, array);
free(buffer);
break;
}