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

.

Browse Source
This commit is contained in:
radrow 2022-07-03 19:11:50 +02:00
parent bd726a8902
commit 1d6f24965b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/aeso_ast_to_fcode.erl
View File

@ -653,21 +653,21 @@ expr_to_fcode(Env, _Type, {list, _, Es}) ->
lists:foldr(fun(E, L) -> {op, '::', [expr_to_fcode(Env, E), L]} end, lists:foldr(fun(E, L) -> {op, '::', [expr_to_fcode(Env, E), L]} end,
nil, Es); nil, Es);
expr_to_fcode(Env, _Type, {app, _, {'..', _}, [A, B]}) -> expr_to_fcode(Env, _Type, {app, _, {'..', _}, [A, B]}) ->
BV = fresh_name(), % var to keep B AV = fresh_name(), % var to keep B
WithB = fun(X) -> {'let', BV, expr_to_fcode(Env, B), X} end, WithA = fun(X) -> {'let', AV, expr_to_fcode(Env, B), X} end,
St = fresh_name(), % loop state St = fresh_name(), % loop state
ItProj = {proj, {var, St}, 1}, ItProj = {proj, {var, St}, 1},
AcProj = {proj, {var, St}, 0}, AcProj = {proj, {var, St}, 0},
Init = {tuple, [nil, expr_to_fcode(Env, A)]}, Init = {tuple, [nil, expr_to_fcode(Env, B)]},
Loop = {loop, Init, St, Loop = {loop, Init, St,
make_if( make_if(
{op, '=<', [ItProj, {var, BV}]}, {op, '=<', [ItProj, {var, AV}]},
{continue, {tuple, [{op, '::', [ItProj, AcProj]}, {continue, {tuple, [{op, '::', [ItProj, AcProj]},
{op, '+', [ItProj, {lit, {int, 1}}]} {op, '+', [ItProj, {lit, {int, 1}}]}
]}}, ]}},
{break, AcProj} {break, AcProj}
)}, )},
WithB(Loop); WithA(Loop);
expr_to_fcode(Env, _Type, {list_comp, _, Yield, []}) -> expr_to_fcode(Env, _Type, {list_comp, _, Yield, []}) ->
{op, '::', [expr_to_fcode(Env, Yield), nil]}; {op, '::', [expr_to_fcode(Env, Yield), nil]};
expr_to_fcode(Env, _Type, {list_comp, As, Yield, [{comprehension_bind, Pat = {typed, _, _, PatType}, BindExpr}|Rest]}) -> expr_to_fcode(Env, _Type, {list_comp, As, Yield, [{comprehension_bind, Pat = {typed, _, _, PatType}, BindExpr}|Rest]}) ->