QPQ-AG/gmbytecode
10
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases 9 Wiki Activity

Instructions are uppercase.

Browse Source
This commit is contained in:
Erik Stenman 2019-02-20 09:49:11 +01:00
parent dae2dbeed6
commit c0f2ac3163
2 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/aeb_fate_code.erl
View File

@ -75,43 +75,43 @@ sub(Dest, Left, Right) ->
{'SUB', Dest, Left, Right}. {'SUB', Dest, Left, Right}.
mul(Dest, Left, Right) -> mul(Dest, Left, Right) ->
{'mul', Dest, Left, Right}. {'MUL', Dest, Left, Right}.
divide(Dest, Left, Right) -> divide(Dest, Left, Right) ->
{'div', Dest, Left, Right}. {'DIV', Dest, Left, Right}.
modulo(Dest, Left, Right) -> modulo(Dest, Left, Right) ->
{'mod', Dest, Left, Right}. {'MOD', Dest, Left, Right}.
pow(Dest, Left, Right) -> pow(Dest, Left, Right) ->
{'pow', Dest, Left, Right}. {'POW', Dest, Left, Right}.
lt(Dest, Left, Right) -> lt(Dest, Left, Right) ->
{'lt', Dest, Left, Right}. {'LT', Dest, Left, Right}.
gt(Dest, Left, Right) -> gt(Dest, Left, Right) ->
{'gt', Dest, Left, Right}. {'GT', Dest, Left, Right}.
elt(Dest, Left, Right) -> elt(Dest, Left, Right) ->
{'elt', Dest, Left, Right}. {'ELT', Dest, Left, Right}.
egt(Dest, Left, Right) -> egt(Dest, Left, Right) ->
{'egt', Dest, Left, Right}. {'EGT', Dest, Left, Right}.
eq(Dest, Left, Right) -> eq(Dest, Left, Right) ->
{'eq', Dest, Left, Right}. {'EQ', Dest, Left, Right}.
neq(Dest, Left, Right) -> neq(Dest, Left, Right) ->
{'neq', Dest, Left, Right}. {'NEQ', Dest, Left, Right}.
and_op(Dest, Left, Right) -> and_op(Dest, Left, Right) ->
{'and', Dest, Left, Right}. {'AND', Dest, Left, Right}.
or_op(Dest, Left, Right) -> or_op(Dest, Left, Right) ->
{'or', Dest, Left, Right}. {'OR', Dest, Left, Right}.
not_op(Dest, Arg) -> not_op(Dest, Arg) ->
{'not', Dest, Arg}. {'NOT', Dest, Arg}.
tuple(Size) when is_integer(Size) -> tuple(Size) when is_integer(Size) ->
{'TUPLE', ?i(Size)}. {'TUPLE', ?i(Size)}.

5
src/aefateasm.erl
View File

@ -45,7 +45,7 @@ assemble(File, Opts) ->
undefined -> undefined ->
Asm = aeb_fate_asm:read_file(File), Asm = aeb_fate_asm:read_file(File),
{Env, BC} = aeb_fate_asm:asm_to_bytecode(Asm, Opts), {Env, BC} = aeb_fate_asm:asm_to_bytecode(Asm, Opts),
case Verbose of case Verbose of
true -> true ->
io:format("Env: ~0p~n", [Env]); io:format("Env: ~0p~n", [Env]);
false -> ok false -> ok
@ -54,5 +54,4 @@ assemble(File, Opts) ->
OutFile -> OutFile ->
aeb_fate_asm:assemble_file(File, OutFile, Opts) aeb_fate_asm:assemble_file(File, OutFile, Opts)
end. end.