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

* wasm32 obj writer: use Data.ObjSectionList.Find to find the debug section by name in MaybeWriteDebugSection

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-08-03 22:02:19 +03:00
parent e959422753
commit cc260eb7b2
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ogwasm.pas
View File

@ -1401,23 +1401,19 @@ implementation
procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomSectionType);
var
i: Integer;
objsec: TWasmObjSection;
begin
for i:=0 to Data.ObjSectionList.Count-1 do
objsec:=TWasmObjSection(Data.ObjSectionList.Find(sn));
if Assigned(objsec) then
begin
objsec:=TWasmObjSection(Data.ObjSectionList[i]);
if objsec.Name=sn then
if oso_Data in objsec.SecOptions then
begin
if oso_Data in objsec.SecOptions then
begin
objsec.Data.seek(0);
CopyDynamicArray(objsec.Data,FWasmCustomSections[st],objsec.Size);
end
else
WriteZeros(FWasmCustomSections[st],objsec.Size);
WriteWasmCustomSection(st);
end;
objsec.Data.seek(0);
CopyDynamicArray(objsec.Data,FWasmCustomSections[st],objsec.Size);
end
else
WriteZeros(FWasmCustomSections[st],objsec.Size);
WriteWasmCustomSection(st);
end;
end;