Function Is_Selector_Name was added in 1995 while experimenting with
default expressions in record declarations. This experiment was
abandoned after one day and this routine was never used since then.
Tested on x86_64-pc-linux-gnu, committed on trunk
gcc/ada/
* sem_util.ads (Is_Selector_Name): Remove spec.
* sem_util.adb (Is_Selector_Name): Remove body.diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -20972,37 +20972,6 @@ package body Sem_Util is
return False;
end Is_Reversible_Iterator;
- ----------------------
- -- Is_Selector_Name --
- ----------------------
-
- function Is_Selector_Name (N : Node_Id) return Boolean is
- begin
- if not Is_List_Member (N) then
- declare
- P : constant Node_Id := Parent (N);
- begin
- return Nkind (P) in N_Expanded_Name
- | N_Generic_Association
- | N_Parameter_Association
- | N_Selected_Component
- and then Selector_Name (P) = N;
- end;
-
- else
- declare
- L : constant List_Id := List_Containing (N);
- P : constant Node_Id := Parent (L);
- begin
- return (Nkind (P) = N_Discriminant_Association
- and then Selector_Names (P) = L)
- or else
- (Nkind (P) = N_Component_Association
- and then Choices (P) = L);
- end;
- end if;
- end Is_Selector_Name;
-
---------------------------------
-- Is_Single_Concurrent_Object --
---------------------------------
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -2337,12 +2337,6 @@ package Sem_Util is
-- AI05-0139-2: Check whether Typ is derived from the predefined interface
-- Ada.Iterator_Interfaces.Reversible_Iterator.
- function Is_Selector_Name (N : Node_Id) return Boolean;
- -- Given an N_Identifier node N, determines if it is a Selector_Name.
- -- As described in Sinfo, Selector_Names are special because they
- -- represent use of the N_Identifier node for a true identifier, when
- -- normally such nodes represent a direct name.
-
function Is_Single_Concurrent_Object (Id : Entity_Id) return Boolean;
-- Determine whether arbitrary entity Id denotes the anonymous object
-- created for a single protected or single task type.
