diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-25 20:04:54 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-15 04:04:21 -0400 |
commit | 6c04efdd9c2a21f719c6fabcf267d03d7127982f (patch) | |
tree | 0cb0b8f3c796fe379c7a3acd2534aecdf3ed27bf /gcc/ada | |
parent | 9aa63bdded3b3aa7f4497cf5326e71fc03fda106 (diff) | |
download | gcc-6c04efdd9c2a21f719c6fabcf267d03d7127982f.zip gcc-6c04efdd9c2a21f719c6fabcf267d03d7127982f.tar.gz gcc-6c04efdd9c2a21f719c6fabcf267d03d7127982f.tar.bz2 |
[Ada] Remove unreferenced and dubious Is_Renaming_Declaration
2020-06-15 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* sem_util.ads, sem_util.adb (Is_Renaming_Declaration): Remove.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/sem_util.adb | 22 | ||||
-rw-r--r-- | gcc/ada/sem_util.ads | 3 |
2 files changed, 0 insertions, 25 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 76afdb0..d7d43c9 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -18081,28 +18081,6 @@ package body Sem_Util is return False; end Is_Renamed_Entry; - ----------------------------- - -- Is_Renaming_Declaration -- - ----------------------------- - - function Is_Renaming_Declaration (N : Node_Id) return Boolean is - begin - case Nkind (N) is - when N_Exception_Renaming_Declaration - | N_Generic_Function_Renaming_Declaration - | N_Generic_Package_Renaming_Declaration - | N_Generic_Procedure_Renaming_Declaration - | N_Object_Renaming_Declaration - | N_Package_Renaming_Declaration - | N_Subprogram_Renaming_Declaration - => - return True; - - when others => - return False; - end case; - end Is_Renaming_Declaration; - ---------------------------- -- Is_Reversible_Iterator -- ---------------------------- diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index c096170..a6d9139 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -2000,9 +2000,6 @@ package Sem_Util is function Is_Renamed_Entry (Proc_Nam : Entity_Id) return Boolean; -- Return True if Proc_Nam is a procedure renaming of an entry - function Is_Renaming_Declaration (N : Node_Id) return Boolean; - -- Determine whether arbitrary node N denotes a renaming declaration - function Is_Reversible_Iterator (Typ : Entity_Id) return Boolean; -- AI05-0139-2: Check whether Typ is derived from the predefined interface -- Ada.Iterator_Interfaces.Reversible_Iterator. |