paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support the memory.init and the data.drop instructions in the internal asm writer for WebAssembly

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-28 16:00:43 +03:00
parent 83604b709c
commit 0ba7ef98b3
1 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
compiler/wasm32/aasmcpu.pas
View File

@ -884,6 +884,30 @@ uses
internalerror(2021092710);
end;
end;
a_memory_init:
begin
if ops<>1 then
internalerror(2022052802);
with oper[0]^ do
case typ of
top_const:
result:=3+UlebSize(val);
else
internalerror(2022052803);
end;
end;
a_data_drop:
begin
if ops<>1 then
internalerror(2022052804);
with oper[0]^ do
case typ of
top_const:
result:=2+UlebSize(val);
else
internalerror(2022052805);
end;
end;
else
internalerror(2021092623);
end;
@ -1857,6 +1881,35 @@ uses
internalerror(2021092710);
end;
end;
a_memory_init:
begin
WriteByte($FC);
WriteByte($08);
if ops<>1 then
internalerror(2022052806);
with oper[0]^ do
case typ of
top_const:
WriteUleb(val);
else
internalerror(2022052807);
end;
WriteByte($00);
end;
a_data_drop:
begin
WriteByte($FC);
WriteByte($09);
if ops<>1 then
internalerror(2022052808);
with oper[0]^ do
case typ of
top_const:
WriteUleb(val);
else
internalerror(2022052809);
end;
end;
else
internalerror(2021092624);
end;