paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:50:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added TWasmObjSection class

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-19 20:51:33 +03:00
parent 429454c8f4
commit 698b5de389
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ogwasm.pas
View File

@ -40,6 +40,11 @@ interface
type
{ TWasmObjSection }
TWasmObjSection = class(TObjSection)
end;
{ TWasmObjData }
TWasmObjData = class(TObjData)
@ -47,6 +52,7 @@ interface
function is_smart_section(atype:TAsmSectiontype):boolean;
function sectionname_gas(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;
public
constructor create(const n:string);override;
function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
end;
@ -212,6 +218,12 @@ implementation
result:=secname;
end;
constructor TWasmObjData.create(const n: string);
begin
inherited;
CObjSection:=TWasmObjSection;
end;
function TWasmObjData.sectionname(atype: TAsmSectiontype;
const aname: string; aorder: TAsmSectionOrder): string;
begin