paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +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

8
compiler/ogwasm.pas
View File

@ -1401,13 +1401,10 @@ implementation
procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomSectionType);
var
i: Integer;
objsec: TWasmObjSection;
begin
for i:=0 to Data.ObjSectionList.Count-1 do
begin
objsec:=TWasmObjSection(Data.ObjSectionList[i]);
if objsec.Name=sn then
objsec:=TWasmObjSection(Data.ObjSectionList.Find(sn));
if Assigned(objsec) then
begin
if oso_Data in objsec.SecOptions then
begin
@ -1419,7 +1416,6 @@ implementation
WriteWasmCustomSection(st);
end;
end;
end;
var
i: Integer;