diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-02-15 17:59:10 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-12 12:38:41 +0000 |
| commit | 0c1ec8ae18b57131f62c31e0144dd0d8aa3a92eb (patch) | |
| tree | 0f6f8cd25cb0b7b51470a7321ae958d5e9be3823 /gcc | |
| parent | 09c7e3175a16d15c7229486e9ce049b2c0daa4f1 (diff) | |
| download | gcc-0c1ec8ae18b57131f62c31e0144dd0d8aa3a92eb.zip gcc-0c1ec8ae18b57131f62c31e0144dd0d8aa3a92eb.tar.gz gcc-0c1ec8ae18b57131f62c31e0144dd0d8aa3a92eb.tar.bz2 | |
[Ada] Remove unreferenced Is_Selector_Name routine
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.
gcc/ada/
* sem_util.ads (Is_Selector_Name): Remove spec.
* sem_util.adb (Is_Selector_Name): Remove body.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_util.adb | 31 | ||||
| -rw-r--r-- | gcc/ada/sem_util.ads | 6 |
2 files changed, 0 insertions, 37 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 0b7d351..43b2c80 100644 --- 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 index e376c33..bd22530 100644 --- 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. |