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

+ implemented binary encoding of a_i32_load and a_i32_store without symbol

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-20 03:00:37 +03:00
parent b975317c51
commit fced051f5f
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
compiler/wasm32/aasmcpu.pas
View File

@ -561,6 +561,30 @@ implementation
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', typ);
end;
end;
a_i32_store,
a_i32_load:
begin
if ops<>1 then
internalerror(2021092016);
with oper[0]^ do
case typ of
top_ref:
begin
if assigned(ref^.symbol) then
Writeln('Warning! Not implemented opcode, pass1: ', opcode, ' symbol ', ref^.symbol.Name, '+', ref^.offset)
else
begin
if assigned(ref^.symbol) or (ref^.base<>NR_NO) or (ref^.index<>NR_NO) then
internalerror(2021092018);
Result:=1+
UlebSize(2)+ { alignment: 1 shl 2 }
UlebSize(ref^.offset);
end;
end;
else
internalerror(2021092017);
end;
end;
else
Writeln('Warning! Not implemented opcode, pass1: ', opcode);
end;
@ -982,6 +1006,37 @@ implementation
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', typ);
end;
end;
a_i32_store,
a_i32_load:
begin
case opcode of
a_i32_store:
WriteByte($36);
a_i32_load:
WriteByte($28);
else
internalerror(2021092019);
end;
if ops<>1 then
internalerror(2021092016);
with oper[0]^ do
case typ of
top_ref:
begin
if assigned(ref^.symbol) then
Writeln('Warning! Not implemented opcode, pass1: ', opcode, ' symbol ', ref^.symbol.Name, '+', ref^.offset)
else
begin
if assigned(ref^.symbol) or (ref^.base<>NR_NO) or (ref^.index<>NR_NO) then
internalerror(2021092018);
WriteUleb(2); { alignment: 1 shl 2 }
WriteUleb(ref^.offset);
end;
end;
else
internalerror(2021092017);
end;
end;
else
Writeln('Warning! Not implemented opcode, pass2: ', opcode);
end;