diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/repinfo.adb | 16 |
2 files changed, 16 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b0bf034..809d468 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2018-05-29 Eric Botcazou <ebotcazou@adacore.com> + + * repinfo.adb (List_Entities): Do not list the Linker_Section for + subprograms here... + (List_Mechanisms): ...but here instead. Use consistent name output + and formatting conventions. + 2018-05-29 Bob Duff <duff@adacore.com> * lib-writ.adb (Write_ALI): Cleanup: avoid use of global var; call new diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index d19ab0f..3b79aa1 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -393,8 +393,6 @@ package body Repinfo is or else Debug_Flag_AA then if Is_Subprogram (E) then - List_Linker_Section (E); - if List_Representation_Info_Mechanisms then List_Mechanisms (E); end if; @@ -746,13 +744,12 @@ package body Repinfo is raise Program_Error; end case; - Get_Unqualified_Decoded_Name_String (Chars (Ent)); - Write_Str (Name_Buffer (1 .. Name_Len)); + List_Name (Ent); Write_Str (" declared at "); Write_Location (Sloc (Ent)); Write_Eol; - Write_Str (" convention : "); + Write_Str ("convention : "); case Convention (Ent) is when Convention_Ada => @@ -814,12 +811,13 @@ package body Repinfo is Form := First_Formal (Ent); while Present (Form) loop Get_Unqualified_Decoded_Name_String (Chars (Form)); + Set_Casing (Unit_Casing); while Name_Len <= Plen loop Name_Len := Name_Len + 1; Name_Buffer (Name_Len) := ' '; end loop; - Write_Str (" "); + Write_Str (" "); Write_Str (Name_Buffer (1 .. Plen + 1)); Write_Str (": passed by "); @@ -829,10 +827,14 @@ package body Repinfo is end loop; if Etype (Ent) /= Standard_Void_Type then - Write_Str (" returns by "); + Write_Str ("returns by "); Write_Mechanism (Mechanism (Ent)); Write_Eol; end if; + + if not Is_Entry (Ent) then + List_Linker_Section (Ent); + end if; end List_Mechanisms; --------------- |