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

More let-floating

Browse Source
This commit is contained in:
Ulf Norell 2019-09-24 16:22:41 +02:00
parent c8153f94a6
commit 0a22c7a34a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/aeso_ast_to_fcode.erl
View File

@ -1231,6 +1231,9 @@ let_float(_, {proj, E, I}) ->
pull_out_let({proj, {here, E}, I}); pull_out_let({proj, {here, E}, I});
let_float(_, {set_proj, E, I, V}) -> let_float(_, {set_proj, E, I, V}) ->
pull_out_let({set_proj, {here, E}, I, {here, V}}); pull_out_let({set_proj, {here, E}, I, {here, V}});
let_float(_, {op, Op, Es}) ->
{Lets, Es1} = pull_out_let([{here, E} || E <- Es]),
let_bind(Lets, {op, Op, Es1});
let_float(_, E) -> E. let_float(_, E) -> E.
pull_out_let(Expr) when is_tuple(Expr) -> pull_out_let(Expr) when is_tuple(Expr) ->