paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simplified operand access via the 'with' operator

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-20 02:09:42 +03:00
parent 4dd44427c0
commit 4a886e2019
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/wasm32/aasmcpu.pas
View File

@ -497,12 +497,13 @@ implementation
begin
if ops<>1 then
internalerror(2021092001);
case oper[0]^.typ of
top_const:
result:=1+SlebSize(oper[0]^.val);
else
Writeln('Warning! Not implemented opcode, pass1: ', opcode, ' ', oper[0]^.typ);
end;
with oper[0]^ do
case typ of
top_const:
result:=1+SlebSize(val);
else
Writeln('Warning! Not implemented opcode, pass1: ', opcode, ' ', typ);
end;
end;
a_local_get,
a_local_set,
@ -864,12 +865,13 @@ implementation
end;
if ops<>1 then
internalerror(2021092001);
case oper[0]^.typ of
top_const:
WriteSleb(oper[0]^.val);
else
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', oper[0]^.typ);
end;
with oper[0]^ do
case typ of
top_const:
WriteSleb(val);
else
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', typ);
end;
end;
a_local_get,
a_local_set,