OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Small optimization to DWARF 5 mode in System.Dwarf_Line

Browse Source 
gcc/ada/

	* libgnat/s-dwalin.adb (To_File_Name): Fetch only the last string
	from the .debug_line_str section.
	(Symbolic_Address.Set_Result): Likewise.
This commit is contained in:
Eric Botcazou 2021-07-06 16:47:31 +02:00 committed by Pierre-Marie de Rodat
parent 97c5d522c6
commit 97a5ed2071
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gcc/ada/libgnat/s-dwalin.adb
View File

@ -957,8 +957,10 @@ package body System.Dwarf_Lines is
when DW_FORM_line_strp =>
Read_Section_Offset (C.Lines, Off, C.Header.Is64);
Seek (C.Line_Str, Off);
Read_C_String (C.Line_Str, Buf);
if J = File then
Seek (C.Line_Str, Off);
Read_C_String (C.Line_Str, Buf);
end if;
when others =>
raise Dwarf_Error with "DWARF form not implemented";
@ -1674,8 +1676,10 @@ package body System.Dwarf_Lines is
when DW_FORM_line_strp =>
Read_Section_Offset (C.Lines, Off, C.Header.Is64);
Seek (C.Line_Str, Off);
File_Name := Read_C_String (C.Line_Str);
if J = Match.File then
Seek (C.Line_Str, Off);
File_Name := Read_C_String (C.Line_Str);
end if;
when others =>
raise Dwarf_Error with "DWARF form not implemented";
@ -1718,8 +1722,10 @@ package body System.Dwarf_Lines is
when DW_FORM_line_strp =>
Read_Section_Offset (C.Lines, Off, C.Header.Is64);
Seek (C.Line_Str, Off);
Dir_Name := Read_C_String (C.Line_Str);
if J = Dir_Idx then
Seek (C.Line_Str, Off);
Dir_Name := Read_C_String (C.Line_Str);
end if;
when others =>
raise Dwarf_Error with "DWARF form not implemented";