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

Implement loops #4

Merged
samsonium merged 24 commits from feat-loops into v1.1 2026-10-25 02:01:47 +00:00
Conversation 3 Commits 24 Files Changed 46
+12 -11
1 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit c4eb148d17 - Show all commits
src/compiler/fzl_walker.c
+12 -11
View File
@@ -258,7 +258,7 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
push_op(walker, FZL_OPCODE_MK_ENVTABLE); push_op(walker, FZL_OPCODE_MK_ENVTABLE);
walker->syms[walker->sym_top++] = fzl_mksymt(); walker->syms[walker->sym_top++] = fzl_mksymt();
size_t loop_begin_ip = walker->op_count; // size_t loop_begin_ip = walker->op_count;
if (node->loop.init) if (node->loop.init)
{ {
@@ -316,16 +316,17 @@ fzl_walk_res_t walk(fzl_walker_t *walker, fzl_node_t *node)
push_op(walker, FZL_OPCODE_RM_ENVTABLE); push_op(walker, FZL_OPCODE_RM_ENVTABLE);
bool is_infinite = // bool is_infinite =
is_infinite_loop(walker, node, loop_begin_ip, walker->op_count - 2); // is_infinite_loop(walker, node, loop_begin_ip, walker->op_count -
if (is_infinite) // 2);
{ // if (is_infinite)
free(newctx->breaks); // {
snprintf(wlast_err, sizeof(wlast_err), // free(newctx->breaks);
"'%s': infinite loop detected at %ld:%ld", // snprintf(wlast_err, sizeof(wlast_err),
node->token->filename, node->token->ln, node->token->cn); // "'%s': infinite loop detected at %ld:%ld",
return (fzl_walk_res_t){.error = true, .error_msg = wlast_err}; // node->token->filename, node->token->ln, node->token->cn);
} // return (fzl_walk_res_t){.error = true, .error_msg = wlast_err};
// }
for (size_t i = walker->sym_top - 1; i > newctx->initial_env_lvl; i--) for (size_t i = walker->sym_top - 1; i > newctx->initial_env_lvl; i--)
fzl_freesymt(walker->syms[--walker->sym_top]); fzl_freesymt(walker->syms[--walker->sym_top]);
1