From 6c04efdd9c2a21f719c6fabcf267d03d7127982f Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 25 Mar 2020 20:04:54 +0100 Subject: [PATCH] [Ada] Remove unreferenced and dubious Is_Renaming_Declaration 2020-06-15 Piotr Trojanek gcc/ada/ * sem_util.ads, sem_util.adb (Is_Renaming_Declaration): Remove. --- gcc/ada/sem_util.adb | 22 ---------------------- gcc/ada/sem_util.ads | 3 --- 2 files changed, 25 deletions(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 76afdb01577..d7d43c90e92 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 c096170ed89..a6d913935da 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. -- 2.30.2