diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-04-28 13:26:33 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-28 15:26:33 +0200 |
commit | ef952fd5e9cfb61e2be7be053fc0d26f87c75040 (patch) | |
tree | f120c4e8d6a455eebaf1edaebf8c3ad2928097e6 /gcc/ada/namet.adb | |
parent | dc99d2417170e3aadc9ea7ae5e9a4a8578c240a3 (diff) | |
download | gcc-ef952fd5e9cfb61e2be7be053fc0d26f87c75040.zip gcc-ef952fd5e9cfb61e2be7be053fc0d26f87c75040.tar.gz gcc-ef952fd5e9cfb61e2be7be053fc0d26f87c75040.tar.bz2 |
exp_util.adb, [...]: Minor reformatting.
2017-04-28 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb, g-dyntab.adb, par-ch4.adb, sem_util.adb, sem_attr.adb,
gnat1drv.adb, exp_disp.adb, namet.adb, alloc.ads: Minor reformatting.
From-SVN: r247383
Diffstat (limited to 'gcc/ada/namet.adb')
-rw-r--r-- | gcc/ada/namet.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index 4e6a69a..fd458a3 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -161,10 +161,11 @@ package body Namet is procedure Append (Buf : in out Bounded_String; Id : Name_Id) is pragma Assert (Id in Name_Entries.First .. Name_Entries.Last); - Index : constant Int := Name_Entries.Table (Id).Name_Chars_Index; - Len : constant Short := Name_Entries.Table (Id).Name_Len; + + Index : constant Int := Name_Entries.Table (Id).Name_Chars_Index; + Len : constant Short := Name_Entries.Table (Id).Name_Len; Chars : Name_Chars.Table_Type renames - Name_Chars.Table (Index + 1 .. Index + Int (Len)); + Name_Chars.Table (Index + 1 .. Index + Int (Len)); begin Append (Buf, String (Chars)); end Append; @@ -174,8 +175,8 @@ package body Namet is -------------------- procedure Append_Decoded (Buf : in out Bounded_String; Id : Name_Id) is - C : Character; - P : Natural; + C : Character; + P : Natural; Temp : Bounded_String; begin |