samsonium/fz-lang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

feat: add object escaping on assing to variable in outer env

Browse Source
This commit is contained in:
samsonium
2026-10-29 17:46:56 +03:00
parent 2cf96d06c6
commit a885746fdd
5 changed files with 39 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/vm/handlers/group_ctx.c
+18 -4
View File
@@ -1,3 +1,4 @@
#include "common/fzl_types.h"
#include <common/fzl_value.h>
#include <stdio.h>
#include <vm/fzl_vm.h>
@@ -136,7 +137,8 @@ int op_load_local(fzl_vm_t *vm)
if (depth >= vm->etop)
{
snprintf(last_err, sizeof(last_err), "runtime error - local depth out of range");
snprintf(last_err, sizeof(last_err),
"runtime error - local depth out of range");
print_err_data(vm);
return -1;
}
@@ -144,7 +146,8 @@ int op_load_local(fzl_vm_t *vm)
fzl_vm_env_t *env = vm->estack[vm->etop - 1 - depth];
if (env->size <= slot)
{
snprintf(last_err, sizeof(last_err), "runtime error - local slot out of range");
snprintf(last_err, sizeof(last_err),
"runtime error - local slot out of range");
print_err_data(vm);
return -1;
}
@@ -170,7 +173,8 @@ int op_store_local(fzl_vm_t *vm)
if (depth >= vm->etop)
{
snprintf(last_err, sizeof(last_err), "runtime error - local depth out of range");
snprintf(last_err, sizeof(last_err),
"runtime error - local depth out of range");
print_err_data(vm);
return -1;
}
@@ -178,11 +182,21 @@ int op_store_local(fzl_vm_t *vm)
fzl_vm_env_t *env = vm->estack[vm->etop - 1 - depth];
if (env->size <= slot)
{
snprintf(last_err, sizeof(last_err), "runtime error - local slot out of range");
snprintf(last_err, sizeof(last_err),
"runtime error - local slot out of range");
print_err_data(vm);
return -1;
}
if (value.type == FZL_TYPE_OBJECT && depth != 0)
{
for (size_t i = 0; i < depth; i++)
{
escape_recursive(vm->estack[vm->etop - i], vm->estack[vm->etop - 1 - i],
value.as.obj);
}
}
env->table[slot].value = value;
return 0;
}