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

+ implemented binary encoding of the global.get and global.set instructions

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

50
compiler/wasm32/aasmcpu.pas
View File

@ -527,6 +527,27 @@ implementation
internalerror(2021092008);
end;
end;
a_global_get,
a_global_set:
begin
if ops<>1 then
internalerror(2021092010);
with oper[0]^ do
case typ of
top_ref:
begin
if not assigned(ref^.symbol) then
internalerror(2021092012);
if (ref^.base<>NR_NO) or (ref^.index<>NR_NO) or (ref^.offset<>0) then
internalerror(2021092013);
if ref^.symbol.Name<>'__stack_pointer' then
internalerror(2021092014);
result:=1+UlebSize(0);
end;
else
internalerror(2021092011);
end;
end;
else
Writeln('Warning! Not implemented opcode, pass1: ', opcode);
end;
@ -905,6 +926,35 @@ implementation
internalerror(2021092008);
end;
end;
a_global_get,
a_global_set:
begin
case opcode of
a_global_get:
WriteByte($23);
a_global_set:
WriteByte($24);
else
internalerror(2021092009);
end;
if ops<>1 then
internalerror(2021092010);
with oper[0]^ do
case typ of
top_ref:
begin
if not assigned(ref^.symbol) then
internalerror(2021092012);
if (ref^.base<>NR_NO) or (ref^.index<>NR_NO) or (ref^.offset<>0) then
internalerror(2021092013);
if ref^.symbol.Name<>'__stack_pointer' then
internalerror(2021092014);
WriteUleb(0);
end;
else
internalerror(2021092011);
end;
end;
else
Writeln('Warning! Not implemented opcode, pass2: ', opcode);
end;