[gcc/devel/gccgo] [Ada] Remove unreferenced and dubious Is_Renaming_Declaration

[Ian Lance Taylor]

https://gcc.gnu.org/g:6c04efdd9c2a21f719c6fabcf267d03d7127982f

commit 6c04efdd9c2a21f719c6fabcf267d03d7127982f
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed Mar 25 20:04:54 2020 +0100

    [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.

Diff:
---
 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.