paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 00:09:27 +02: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 committed by Pierre Muller
parent ad7d4379fe
commit a1ed717d81
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 }
inserted : boolean;
{$endif arm}
{$ifdef wasm32}
is_pascal_goto_target: boolean;
{$endif wasm32}
constructor Create(_labsym : tasmlabel);
constructor ppuload(t:taitype;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 getaddressregister(list:TAsmList):Tregister;override;
procedure do_register_allocation(list:TAsmList;headertai:tai);override;
procedure a_label_pascal_goto_target(list : TAsmList;l : tasmlabel);override;
end;
procedure create_codegen;
@ -121,6 +122,16 @@ implementation
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;
begin
cg:=tcgwasm.Create;