mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-05-05 17:04:15 +00:00
Code Issues 1 Releases Wiki Activity

Fix issue with environments in asm.c

Browse Source
This commit is contained in:
Calvin Rose 2023-02-02 21:12:17 -06:00
parent dacbe29771
commit 282546c03f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/asm.c
View File

@ -722,10 +722,10 @@ static JanetAssembleResult janet_asm1(JanetAssembler *parent, Janet source, int
} }
/* Set environments */ /* Set environments */
def->environments = janet_realloc(def->environments, def->environments_length * sizeof(int32_t));
x = janet_get1(s, janet_ckeywordv("environments")); x = janet_get1(s, janet_ckeywordv("environments"));
if (janet_indexed_view(x, &arr, &count)) { if (janet_indexed_view(x, &arr, &count)) {
def->environments_length = count; def->environments_length = count;
def->environments = janet_realloc(def->environments, def->environments_length * sizeof(int32_t));
for (int32_t i = 0; i < count; i++) { for (int32_t i = 0; i < count; i++) {
if (!janet_checkint(arr[i])) { if (!janet_checkint(arr[i])) {
janet_asm_error(&a, "expected integer"); janet_asm_error(&a, "expected integer");