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

+ wasm internal object reader: pass a TWasmCustomDebugSectionType parameter to ReadDebugSection

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 18:47:04 +02:00
parent 37ffd4051a
commit ada576e559
1 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/ogwasm.pas
View File

@ -2891,7 +2891,7 @@ implementation
Result:=False;
end;
function ReadDebugSection(const SectionName: string): Boolean;
function ReadDebugSection(const SectionName: string; SectionType: TWasmCustomDebugSectionType): Boolean;
var
ObjSec: TObjSection;
begin
@ -2928,12 +2928,36 @@ implementation
Result:=ReadProducersSection;
'target_features':
Result:=ReadTargetFeaturesSection;
'.debug_abbrev',
'.debug_info',
'.debug_line',
'.debug_aranges',
'.debug_abbrev':
if not ReadDebugSection(SectionName, wcstDebugAbbrev) then
begin
InputError('Error reading section ' + SectionName);
exit;
end;
'.debug_info':
if not ReadDebugSection(SectionName, wcstDebugInfo) then
begin
InputError('Error reading section ' + SectionName);
exit;
end;
'.debug_line':
if not ReadDebugSection(SectionName, wcstDebugLine) then
begin
InputError('Error reading section ' + SectionName);
exit;
end;
'.debug_aranges':
if not ReadDebugSection(SectionName, wcstDebugAranges) then
begin
InputError('Error reading section ' + SectionName);
exit;
end;
'.debug_ranges':
Result:=ReadDebugSection(SectionName);
if not ReadDebugSection(SectionName, wcstDebugRanges) then
begin
InputError('Error reading section ' + SectionName);
exit;
end;
else
InputError('Unsupported custom section: ''' + SectionName + '''');
end;