paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 15:10:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* abbrev section must be re-read for each chunk of debug info, should resolve #29825

Browse Source 
git-svn-id: trunk@33233 -
This commit is contained in:
florian 2016-03-13 14:41:56 +00:00
parent 928027a7a4
commit feb15f08b3
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/lnfodwrf.pp
View File

@ -969,7 +969,9 @@ procedure SkipAttr(form : QWord);
end;
var
i : PtrUInt;
i : PtrInt;
prev_base,prev_limit : SizeInt;
prev_pos : Int64;
begin
found := false;
@ -1002,6 +1004,19 @@ begin
isdwarf64:=true;
end;
DEBUG_WRITELN('debug_abbrev_offset: ',header64.debug_abbrev_offset);
{ not nice, but we have to read the abbrev section after the start of the debug_info section has been read }
prev_limit:=limit;
prev_base:=base;
prev_pos:=Pos;
Init(Dwarf_Debug_Abbrev_Section_Offset+header64.debug_abbrev_offset,Dwarf_Debug_Abbrev_Section_Size);
ReadAbbrevTable;
{ restore previous reading state and position }
Init(prev_base,prev_limit);
Seek(prev_pos);
abbrev:=ReadULEB128;
level:=0;
while (abbrev <> 0) and (not found) do
@ -1091,9 +1106,6 @@ begin
source, line, found);
end;
Init(Dwarf_Debug_Abbrev_Section_Offset, Dwarf_Debug_Abbrev_Section_Size);
ReadAbbrevTable;
current_offset := Dwarf_Debug_Info_Section_Offset;
end_offset := Dwarf_Debug_Info_Section_Offset + Dwarf_Debug_Info_Section_Size;