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

+ introduced ait_tagtype and tai_tagtype

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-17 02:05:24 +03:00
parent 10d8332563
commit 3022f59ff4
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aasmtai.pas
View File

@ -95,6 +95,7 @@ interface
ait_importexport, ait_importexport,
ait_local, ait_local,
ait_functype, ait_functype,
ait_tagtype,
{$endif} {$endif}
{ SEH directives used in ARM,MIPS and x86_64 COFF targets } { SEH directives used in ARM,MIPS and x86_64 COFF targets }
ait_seh_directive, ait_seh_directive,
@ -242,6 +243,7 @@ interface
'importexport', 'importexport',
'local', 'local',
'functype', 'functype',
'tagtype',
{$endif} {$endif}
'cfi', 'cfi',
'seh_directive', 'seh_directive',
@ -357,7 +359,7 @@ interface
ait_llvmmetadatarefoperand, ait_llvmmetadatarefoperand,
{$endif llvm} {$endif llvm}
{$ifdef wasm} {$ifdef wasm}
ait_importexport,ait_local,ait_functype, ait_importexport,ait_local,ait_functype,ait_tagtype,
{$endif wasm} {$endif wasm}
ait_seh_directive, ait_seh_directive,
ait_cfi, ait_cfi,

17
compiler/wasm32/aasmcpu.pas
View File

@ -114,6 +114,14 @@ uses
destructor destroy;override; destructor destroy;override;
end; end;
{ tai_tagtype }
tai_tagtype = class(tai)
tagname: string;
params: TWasmResultType;
constructor create(const atagname: string; aparams: TWasmResultType);
end;
procedure InitAsm; procedure InitAsm;
procedure DoneAsm; procedure DoneAsm;
@ -139,6 +147,15 @@ implementation
inherited; inherited;
end; end;
{ tai_tagtype }
constructor tai_tagtype.create(const atagname: string; aparams: TWasmResultType);
begin
typ:=ait_tagtype;
tagname:=atagname;
params:=aparams;
end;
{ tai_local } { tai_local }
constructor tai_local.create(abasictype: TWasmBasicType; const aname: string); constructor tai_local.create(abasictype: TWasmBasicType; const aname: string);