public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-3747] [Ada] Minor tweaks to System.Dwarf_Line
@ 2021-09-21 15:27 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2021-09-21 15:27 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:13b594411d2a339e91345c0c5672d49a287dd035
commit r12-3747-g13b594411d2a339e91345c0c5672d49a287dd035
Author: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu Jul 8 09:54:14 2021 +0200
[Ada] Minor tweaks to System.Dwarf_Line
gcc/ada/
* libgnat/s-dwalin.adb (Parse_Header): Tweak comments.
(Read_Entry_Format_Array): Tweak exception message.
(Symbolic_Address.Set_Result): Likewise.
Diff:
---
gcc/ada/libgnat/s-dwalin.adb | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/gcc/ada/libgnat/s-dwalin.adb b/gcc/ada/libgnat/s-dwalin.adb
index 4bcd741c92c..e02b0fdeb2c 100644
--- a/gcc/ada/libgnat/s-dwalin.adb
+++ b/gcc/ada/libgnat/s-dwalin.adb
@@ -584,10 +584,10 @@ package body System.Dwarf_Lines is
Standard_Opcode_Lengths (J) := Read (C.Lines);
end loop;
- -- The directories table follows. Up to DWARF 4, this is a list of null
+ -- The Directories table follows. Up to DWARF 4, this is a list of null
-- terminated strings terminated by a null byte. In DWARF 5, this is a
- -- sequence of Directories_Count entries encoded as described by the
- -- Directory_Entry_Format field. We store its offset for later decoding.
+ -- sequence of Directories_Count entries which are encoded as described
+ -- by the Directory_Entry_Format field. We store its offset for later.
if Header.Version <= 4 then
Tell (C.Lines, Header.Directories);
@@ -619,12 +619,12 @@ package body System.Dwarf_Lines is
end loop;
end if;
- -- The file_names table is next. Up to DWARF 4, this is a list of record
+ -- The File_Names table is next. Up to DWARF 4, this is a list of record
-- containing a null terminated string for the file name, an unsigned
-- LEB128 directory index in the Directories table, an unsigned LEB128
-- modification time, and an unsigned LEB128 for the file length; the
-- table is terminated by a null byte. In DWARF 5, this is a sequence
- -- of File_Names_Count entries encoded as described by the
+ -- of File_Names_Count entries which are encoded as described by the
-- File_Name_Entry_Format field. We store its offset for later decoding.
if Header.Version <= 4 then
@@ -1045,7 +1045,7 @@ package body System.Dwarf_Lines is
case C_Type is
when DW_LNCT_path .. DW_LNCT_MD5 =>
if N not in A'Range then
- raise Dwarf_Error with "DWARF duplicate content type";
+ raise Dwarf_Error with "duplicate DWARF content type";
end if;
A (N) := (C_Type, Form);
@@ -1698,7 +1698,8 @@ package body System.Dwarf_Lines is
Dir_Idx := Read_LEB128 (C.Lines);
when others =>
- raise Dwarf_Error with "invalid DWARF";
+ raise Dwarf_Error with
+ "invalid DWARF form for DW_LNCT_directory_index";
end case;
else
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2021-09-21 15:27 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-09-21 15:27 [gcc r12-3747] [Ada] Minor tweaks to System.Dwarf_Line Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).