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

Fix missing fann() in tuple fexpr()

Browse Source
This commit is contained in:
Gaith Hallak 2022-11-14 19:41:20 +03:00
parent 835b186499
commit 116fefc244
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/aeso_ast_to_fcode.erl
View File

@ -1166,13 +1166,13 @@ set_state({tuple, Ls}, Val) ->
?make_let(X, Val, ?make_let(X, Val,
lists:foldr(fun({I, L}, Code) -> lists:foldr(fun({I, L}, Code) ->
{'let', [], "_", set_state(L, {proj, get_fann(Val), X, I - 1}), Code} {'let', [], "_", set_state(L, {proj, get_fann(Val), X, I - 1}), Code}
end, {tuple, []}, indexed(Ls))). end, {tuple, [], []}, indexed(Ls))).
-spec get_state(state_layout()) -> fexpr(). -spec get_state(state_layout()) -> fexpr().
get_state({reg, R}) -> get_state({reg, R}) ->
{get_state, [], R}; {get_state, [], R};
get_state({tuple, Ls}) -> get_state({tuple, Ls}) ->
{tuple, [get_state(L) || L <- Ls]}. {tuple, [], [get_state(L) || L <- Ls]}.
-spec builtin_to_fcode(state_layout(), BuiltinFun, [fexpr()]) -> fexpr() when -spec builtin_to_fcode(state_layout(), BuiltinFun, [fexpr()]) -> fexpr() when
BuiltinFun :: atom(). %% No need to mention all of them BuiltinFun :: atom(). %% No need to mention all of them