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

+ implemented the f32.const and f64.const instructions in the wasm

Browse Source 
internal asm
This commit is contained in:
Nikolay Nikolov 2021-09-26 07:19:36 +03:00
parent 0486caeb91
commit 6133affad6
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
compiler/wasm32/aasmcpu.pas
View File

@ -555,6 +555,10 @@ uses
internalerror(2021092615);
end;
end;
a_f32_const:
result:=5;
a_f64_const:
result:=9;
a_local_get,
a_local_set,
a_local_tee:
@ -705,6 +709,36 @@ uses
objdata.writebytes(b,1);
end;
{$ifdef FPC_LITTLE_ENDIAN}
procedure WriteSingle(s: single);
begin
objdata.writebytes(s,4);
end;
procedure WriteDouble(d: double);
begin
objdata.writebytes(d,8);
end;
{$else FPC_LITTLE_ENDIAN}
procedure WriteSingle(s: single);
var
l: longword;
begin
Move(s,l,4);
l:=SwapEndian(l);
objdata.writebytes(l,4);
end;
procedure WriteDouble(d: double);
var
q: qword;
begin
Move(d,q,8);
q:=SwapEndian(q);
objdata.writebytes(q,8);
end;
{$endif FPC_LITTLE_ENDIAN}
procedure WriteSleb(v: tcgint);
var
b: byte;
@ -1049,6 +1083,32 @@ uses
internalerror(2021092615);
end;
end;
a_f32_const:
begin
if ops<>1 then
internalerror(2021092619);
WriteByte($44);
with oper[0]^ do
case typ of
top_single:
WriteSingle(sval);
else
internalerror(2021092618);
end;
end;
a_f64_const:
begin
if ops<>1 then
internalerror(2021092616);
WriteByte($44);
with oper[0]^ do
case typ of
top_double:
WriteDouble(dval);
else
internalerror(2021092617);
end;
end;
a_local_get,
a_local_set,
a_local_tee: