paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-28 13:07:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added wasm32-specific flag tai_label.is_pascal_goto_target

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-04 05:44:32 +03:00
parent 9b8af14f47
commit da2649fade
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmtai.pas
View File

@ -656,6 +656,9 @@ interface
pc relative offsets are allowed } pc relative offsets are allowed }
inserted : boolean; inserted : boolean;
{$endif arm} {$endif arm}
{$ifdef wasm32}
is_pascal_goto_target: boolean;
{$endif wasm32}
constructor Create(_labsym : tasmlabel); constructor Create(_labsym : tasmlabel);
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override; constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;

11
compiler/wasm32/cgcpu.pas
View File

@ -42,6 +42,7 @@ interface
function getfpuregister(list:TAsmList;size:Tcgsize):Tregister;override; function getfpuregister(list:TAsmList;size:Tcgsize):Tregister;override;
function getaddressregister(list:TAsmList):Tregister;override; function getaddressregister(list:TAsmList):Tregister;override;
procedure do_register_allocation(list:TAsmList;headertai:tai);override; procedure do_register_allocation(list:TAsmList;headertai:tai);override;
procedure a_label_pascal_goto_target(list : TAsmList;l : tasmlabel);override;
end; end;
procedure create_codegen; procedure create_codegen;
@ -121,6 +122,16 @@ implementation
end; end;
procedure tcgwasm.a_label_pascal_goto_target(list : TAsmList;l : tasmlabel);
var
lbl: tai_label;
begin
lbl:=tai_label.create(l);
lbl.is_pascal_goto_target:=true;
list.concat(lbl);
end;
procedure create_codegen; procedure create_codegen;
begin begin
cg:=tcgwasm.Create; cg:=tcgwasm.Create;