aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcc/ada/sem_util.adb22
-rw-r--r--gcc/ada/sem_util.ads3
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.