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

+ implemented the if, loop and else instructions

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-26 07:45:14 +03:00
parent 6133affad6
commit d7b141d70e
3 changed files with 66 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogwasm.pas
View File

@ -778,16 +778,7 @@ implementation
procedure TWasmObjOutput.WriteWasmBasicType(dest: tdynamicarray; wbt: TWasmBasicType);
begin
case wbt of
wbt_i32:
WriteByte(dest,$7F);
wbt_i64:
WriteByte(dest,$7E);
wbt_f32:
WriteByte(dest,$7D);
wbt_f64:
WriteByte(dest,$7C);
end;
WriteByte(dest,encode_wasm_basic_type(wbt));
end;
function TWasmObjOutput.IsExternalFunction(sym: TObjSymbol): Boolean;

53
compiler/wasm32/aasmcpu.pas
View File

@ -522,6 +522,7 @@ uses
a_i64_extend8_s,
a_i64_extend16_s,
a_i64_extend32_s,
a_else,
a_end_block,
a_end_if,
a_end_loop,
@ -604,7 +605,9 @@ uses
end;
a_end_function:
result:=0;
a_block:
a_block,
a_loop,
a_if:
begin
if ops=0 then
result:=2
@ -612,7 +615,19 @@ uses
begin
if ops<>1 then
internalerror(2021092015);
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', typ);
with oper[0]^ do
case typ of
top_functype:
begin
if (length(functype.params)=0) and (length(functype.results)<=1) then
result:=2
else
{ more complex blocktypes are not yet implemented }
internalerror(2021092621);
end;
else
internalerror(2021092620);
end;
end;
end;
a_i32_load,
@ -1172,18 +1187,46 @@ uses
end;
a_end_function:
;
a_block:
a_block,
a_loop,
a_if:
begin
WriteByte($02);
case opcode of
a_block:
WriteByte($02);
a_loop:
WriteByte($03);
a_if:
WriteByte($04);
end;
if ops=0 then
WriteByte($40)
else
begin
if ops<>1 then
internalerror(2021092015);
Writeln('Warning! Not implemented opcode, pass2: ', opcode, ' ', typ);
with oper[0]^ do
case typ of
top_functype:
begin
if (length(functype.params)=0) and (length(functype.results)<=1) then
begin
if length(functype.results)=1 then
WriteByte(encode_wasm_basic_type(functype.results[0]))
else
WriteByte($40);
end
else
{ more complex blocktypes are not yet implemented }
internalerror(2021092621);
end;
else
internalerror(2021092620);
end;
end;
end;
a_else:
WriteByte($05);
a_i32_load,
a_i64_load,
a_f32_load,

17
compiler/wasm32/cpubase.pas
View File

@ -318,6 +318,7 @@ uses
function inverse_cond(const c: TAsmCond): Tasmcond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
function natural_alignment_for_load_store(op: TAsmOp): shortint;
function encode_wasm_basic_type(wbt: TWasmBasicType): Byte;
implementation
@ -436,6 +437,22 @@ uses
end;
end;
function encode_wasm_basic_type(wbt: TWasmBasicType): Byte;
begin
case wbt of
wbt_i32:
result:=$7F;
wbt_i64:
result:=$7E;
wbt_f32:
result:=$7D;
wbt_f64:
result:=$7C;
else
internalerror(2021092622);
end;
end;
{*****************************************************************************
TWasmFuncType
*****************************************************************************}