[Ada] Code cleanup: rename ALI.Scope

gcc/ada/

	* ali.ads, ali.adb, bindo-writers.adb, lib-writ.adb (Scope):
	Renamed to IS_Scope.
This commit is contained in:
Arnaud Charlet 2020-12-01 09:53:35 -05:00 committed by Pierre-Marie de Rodat
parent 571d3fb1f4
commit 1c4aefb681
4 changed files with 9 additions and 9 deletions

View File

@ -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 --

View File

@ -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

View File

@ -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;

View File

@ -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