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/ada/sem_util.ads | |
| 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/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 6 |
1 files changed, 0 insertions, 6 deletions
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. |