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

+ read debug sections in the wasm internal object reader

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-02 20:10:43 +02:00
parent 3c08ad4af5
commit 9a983632f9
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ogwasm.pas
View File

@ -2886,6 +2886,16 @@ implementation
Result:=False;
end;
function ReadDebugSection(const SectionName: string): Boolean;
var
ObjSec: TObjSection;
begin
ObjSec:=ObjData.createsection(SectionName,1,[oso_Data,oso_debug],false);
ObjSec.DataPos:=AReader.Pos;
ObjSec.Size:=SectionStart+SectionSize-AReader.Pos;
Result:=True;
end;
const
RelocationSectionPrefix = 'reloc.';
var
@ -2913,6 +2923,12 @@ implementation
Result:=ReadProducersSection;
'target_features':
Result:=ReadTargetFeaturesSection;
'.debug_abbrev',
'.debug_info',
'.debug_line',
'.debug_aranges',
'.debug_ranges':
Result:=ReadDebugSection(SectionName);
else
InputError('Unsupported custom section: ''' + SectionName + '''');
end;