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

+ added method tai_wasmstruc_if.ConvertToBrIf

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-17 02:11:46 +03:00
parent bc7b113e09
commit c2173185e7
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/wasm32/aasmcpu.pas
View File

@ -100,6 +100,7 @@ uses
function getcopy:TLinkedListItem;override; function getcopy:TLinkedListItem;override;
procedure Map(f: TAsmMapFunc; blockstack: twasmstruc_stack);override; procedure Map(f: TAsmMapFunc; blockstack: twasmstruc_stack);override;
procedure ConvertToFlatList(l: TAsmList);override; procedure ConvertToFlatList(l: TAsmList);override;
procedure ConvertToBrIf(list: TAsmList);
end; end;
{ tai_wasmstruc_block } { tai_wasmstruc_block }
@ -426,6 +427,29 @@ uses
l.concat(tai_label.create(FLabel)); l.concat(tai_label.create(FLabel));
end; end;
procedure tai_wasmstruc_if.ConvertToBrIf(list: TAsmList);
var
then_label: TAsmLabel;
res_ft: TWasmFuncType;
begin
if if_instr.ops>1 then
internalerror(2023101701);
if (if_instr.ops=1) and (if_instr.oper[0]^.typ=top_functype) then
res_ft:=if_instr.oper[0]^.functype
else
res_ft:=nil;
// TODO: handle res_ft
current_asmdata.getjumplabel(then_label);
list.concat(taicpu.op_sym(a_br_if,then_label));
if assigned(else_asmlist) then
list.concatList(else_asmlist);
list.concat(taicpu.op_sym(a_br, FLabel));
list.concat(tai_label.create(then_label));
list.concatList(then_asmlist);
list.concat(tai_label.create(FLabel));
end;
{ tai_wasmstruc_block } { tai_wasmstruc_block }
constructor tai_wasmstruc_block.create_from(a_block_instr: taicpu; srclist: TAsmList); constructor tai_wasmstruc_block.create_from(a_block_instr: taicpu; srclist: TAsmList);