QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Add loop operator in fcode #889

Open
zxq9 wants to merge 27 commits from loop-op into master
pull from: loop-op
merge into: QPQ-AG:master
Conversation 3 Commits 27 Files Changed 2 +5 -3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit e050618d7a - Show all commits

8
src/aeso_ast_to_fcode.erl
View File

@ -663,10 +663,12 @@ expr_to_fcode(Env, _Type, {app, _, {'..', _}, [A, B]}) ->
Init = {tuple, [nil, {var, AV}]},
WithA(WithB(
{loop, Init, St,
{'let', It, {proj, {var, St}, 2},
{'let', It, {proj, {var, St}, 1},
make_if({op, '=<', [{var, It}, {var, BV}]},
{continue, {tuple, [{op, '::', [{var, It}, {proj, {var, St}, 1}]}]}},
{break, {proj, {var, St}, 2}}
{continue, {tuple, [{op, '::', [{var, It}, {proj, {var, St}, 0}]},
{op, '+', [{var, It}, {lit, {int, 1}}]}
]}},
{break, {proj, {var, St}, 0}}
)}}));
expr_to_fcode(Env, _Type, {list_comp, _, Yield, []}) ->
{op, '::', [expr_to_fcode(Env, Yield), nil]};