paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced TWasmObjSection.IsCode and .IsData

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-19 20:56:06 +03:00
parent 698b5de389
commit eea8f32772
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ogwasm.pas
View File

@ -43,6 +43,9 @@ interface
{ TWasmObjSection }
TWasmObjSection = class(TObjSection)
public
function IsCode: Boolean;
function IsData: Boolean;
end;
{ TWasmObjData }
@ -74,6 +77,23 @@ interface
implementation
{****************************************************************************
TWasmObjSection
****************************************************************************}
function TWasmObjSection.IsCode: Boolean;
const
CodePrefix = '.text';
begin
result:=(Length(Name)>=Length(CodePrefix)) and
(Copy(Name,1,Length(CodePrefix))=CodePrefix);
end;
function TWasmObjSection.IsData: Boolean;
begin
result:=not IsCode;
end;
{****************************************************************************
TWasmObjData
****************************************************************************}
@ -244,7 +264,7 @@ implementation
function TWasmObjOutput.writeData(Data:TObjData):boolean;
var
i: Integer;
objsec: TObjSection;
objsec: TWasmObjSection;
begin
Writer.write(WasmModuleMagic,SizeOf(WasmModuleMagic));
Writer.write(WasmVersion,SizeOf(WasmVersion));
@ -252,8 +272,8 @@ implementation
Writeln('ObjSectionList:');
for i:=0 to Data.ObjSectionList.Count-1 do
begin
objsec:=TObjSection(Data.ObjSectionList[i]);
Writeln(objsec.Name, ' Size=', objsec.Size, ' MemPos=', objsec.MemPos, ' Data.Size=', objsec.Data.size, ' DataPos=', objsec.DataPos);
objsec:=TWasmObjSection(Data.ObjSectionList[i]);
Writeln(objsec.Name, ' IsCode=', objsec.IsCode, ' IsData=', objsec.IsData, ' Size=', objsec.Size, ' MemPos=', objsec.MemPos, ' Data.Size=', objsec.Data.size, ' DataPos=', objsec.DataPos);
end;
result:=true;