paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:29:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ wasm internal object reader: record section indices for debug sections. Check for duplicated debug sections.

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 19:07:28 +02:00
parent f510e6f59b
commit dfdc4a4d78
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogwasm.pas
View File

@ -2374,6 +2374,7 @@ implementation
CodeSectionIndex: Integer = -1;
DataSectionIndex: Integer = -1;
DebugSectionIndex: array [TWasmCustomDebugSectionType] of Integer = (-1,-1,-1,-1,-1,-1,-1);
FuncTypes: array of record
IsImport: Boolean;
@ -2895,6 +2896,13 @@ implementation
var
ObjSec: TObjSection;
begin
Result:=False;
if DebugSectionIndex[SectionType]<>-1 then
begin
InputError('Duplicated debug section: ' + SectionName);
exit;
end;
DebugSectionIndex[SectionType]:=SectionIndex;
ObjSec:=ObjData.createsection(SectionName,1,[oso_Data,oso_debug],false);
ObjSec.DataPos:=AReader.Pos;
ObjSec.Size:=SectionStart+SectionSize-AReader.Pos;