diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-12-01 09:53:35 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-12-16 08:01:05 -0500 |
commit | 1c4aefb6818bf0850a3c3263e66fbf9673f069fd (patch) | |
tree | 11feb902e6b3ad8852fcf6f4887049178b26000b /gcc | |
parent | 571d3fb1f40fa85c769a7dbefd84da6c6e99665d (diff) | |
download | gcc-1c4aefb6818bf0850a3c3263e66fbf9673f069fd.zip gcc-1c4aefb6818bf0850a3c3263e66fbf9673f069fd.tar.gz gcc-1c4aefb6818bf0850a3c3263e66fbf9673f069fd.tar.bz2 |
[Ada] Code cleanup: rename ALI.Scope
gcc/ada/
* ali.ads, ali.adb, bindo-writers.adb, lib-writ.adb (Scope):
Renamed to IS_Scope.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/ali.adb | 10 | ||||
-rw-r--r-- | gcc/ada/ali.ads | 4 | ||||
-rw-r--r-- | gcc/ada/bindo-writers.adb | 2 | ||||
-rw-r--r-- | gcc/ada/lib-writ.adb | 2 |
4 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 3bf1257..f213c30 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -3814,15 +3814,15 @@ package body ALI is return No_ALI_Id; end Scan_ALI; - ----------- - -- Scope -- - ----------- + -------------- + -- IS_Scope -- + -------------- - function Scope (IS_Id : Invocation_Signature_Id) return Name_Id is + function IS_Scope (IS_Id : Invocation_Signature_Id) return Name_Id is begin pragma Assert (Present (IS_Id)); return Invocation_Signatures.Table (IS_Id).Scope; - end Scope; + end IS_Scope; --------- -- SEq -- diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 928fdbd..ccb516f 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -1350,8 +1350,8 @@ package ALI is pragma Inline (Name); -- Obtain the name of invocation signature IS_Id - function Scope (IS_Id : Invocation_Signature_Id) return Name_Id; - pragma Inline (Scope); + function IS_Scope (IS_Id : Invocation_Signature_Id) return Name_Id; + pragma Inline (IS_Scope); -- Obtain the scope of invocation signature IS_Id procedure Set_Invocation_Graph_Encoding diff --git a/gcc/ada/bindo-writers.adb b/gcc/ada/bindo-writers.adb index cca6687..926fb82 100644 --- a/gcc/ada/bindo-writers.adb +++ b/gcc/ada/bindo-writers.adb @@ -222,7 +222,7 @@ package body Bindo.Writers is Write_Eol; Write_Str (" Scope = "); - Write_Name (Scope (IS_Id)); + Write_Name (IS_Scope (IS_Id)); Write_Eol; end Write_Invocation_Signature; diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index f5b9e30..16449e8 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -1724,7 +1724,7 @@ package body Lib.Writ is -- scope - Write_Info_Name (Scope (IS_Id)); + Write_Info_Name (IS_Scope (IS_Id)); Write_Info_Char (' '); -- line |