diff options
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index cb0cbf2..ef591c9 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -15235,18 +15235,6 @@ package body Sem_Util is end case; end Is_Actual_Parameter; - -------------------------------- - -- Is_Actual_Tagged_Parameter -- - -------------------------------- - - function Is_Actual_Tagged_Parameter (N : Node_Id) return Boolean is - Formal : Entity_Id; - Call : Node_Id; - begin - Find_Actual (N, Formal, Call); - return Present (Formal) and then Is_Tagged_Type (Etype (Formal)); - end Is_Actual_Tagged_Parameter; - --------------------- -- Is_Aliased_View -- --------------------- |