diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2015-10-27 11:54:29 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-27 12:54:29 +0100 |
commit | cd8d6792e3375d86e3ca810f261deef4f3f12048 (patch) | |
tree | 1296c6a36b3da1e2d76b761c628df9e819e69a75 /gcc/ada/namet.adb | |
parent | 461e4145898e7bdf5b6a0aec280246c0046fe807 (diff) | |
download | gcc-cd8d6792e3375d86e3ca810f261deef4f3f12048.zip gcc-cd8d6792e3375d86e3ca810f261deef4f3f12048.tar.gz gcc-cd8d6792e3375d86e3ca810f261deef4f3f12048.tar.bz2 |
namet.adb, namet.ads: Minor reformatting.
2015-10-27 Hristian Kirtchev <kirtchev@adacore.com>
* namet.adb, namet.ads: Minor reformatting.
From-SVN: r229426
Diffstat (limited to 'gcc/ada/namet.adb')
-rw-r--r-- | gcc/ada/namet.adb | 68 |
1 files changed, 36 insertions, 32 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index cfaec6e..902f347 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -628,7 +628,11 @@ package body Namet is -- Get_Last_Two_Chars -- ------------------------ - procedure Get_Last_Two_Chars (N : Name_Id; C1, C2 : out Character) is + procedure Get_Last_Two_Chars + (N : Name_Id; + C1 : out Character; + C2 : out Character) + is NE : Name_Entry renames Name_Entries.Table (N); NEL : constant Int := Int (NE.Name_Len); @@ -1309,6 +1313,37 @@ package body Namet is T = V11; end Nam_In; + ----------------- + -- Name_Equals -- + ----------------- + + function Name_Equals (N1 : Name_Id; N2 : Name_Id) return Boolean is + begin + if N1 = N2 then + return True; + end if; + + declare + L1 : constant Int := Int (Name_Entries.Table (N1).Name_Len); + L2 : constant Int := Int (Name_Entries.Table (N2).Name_Len); + + begin + if L1 /= L2 then + return False; + end if; + + declare + use Name_Chars; + I1 : constant Int := Name_Entries.Table (N1).Name_Chars_Index; + I2 : constant Int := Name_Entries.Table (N2).Name_Chars_Index; + + begin + return (Name_Chars.Table (1 + I1 .. I1 + L1) = + Name_Chars.Table (1 + I2 .. I2 + L2)); + end; + end; + end Name_Equals; + ------------------ -- Reinitialize -- ------------------ @@ -1421,7 +1456,6 @@ package body Namet is ----------------------------- procedure Store_Encoded_Character (C : Char_Code) is - procedure Set_Hex_Chars (C : Char_Code); -- Stores given value, which is in the range 0 .. 255, as two hex -- digits (using lower case a-f) in Name_Buffer, incrementing Name_Len. @@ -1639,36 +1673,6 @@ package body Namet is end if; end Write_Name_Decoded; - ----------------- - -- Name_Equals -- - ----------------- - - function Name_Equals (N1, N2 : Name_Id) return Boolean is - begin - if N1 = N2 then - return True; - end if; - - declare - L1 : constant Int := Int (Name_Entries.Table (N1).Name_Len); - L2 : constant Int := Int (Name_Entries.Table (N2).Name_Len); - begin - if L1 /= L2 then - return False; - end if; - - declare - use Name_Chars; - - I1 : constant Int := Name_Entries.Table (N1).Name_Chars_Index; - I2 : constant Int := Name_Entries.Table (N2).Name_Chars_Index; - begin - return (Name_Chars.Table (1 + I1 .. I1 + L1) - = Name_Chars.Table (1 + I2 .. I2 + L2)); - end; - end; - end Name_Equals; - -- Package initialization, initialize tables begin |