diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-06-17 10:41:44 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-27 04:05:18 -0400 |
commit | 7f365be815ea6543ebfddb7d1688817cde5b223b (patch) | |
tree | 69f3160dfcabfb73e0272385aec6ad77c4e77cab /gcc/ada | |
parent | 4a08c95cf0604a96e6fc48102365ef0d498f11ae (diff) |
[Ada] Remove disabled code
gcc/ada/
* sem_attr.adb (Resolve_Attribute): Remove dead code.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/sem_attr.adb | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 16938e6ab9e..b35f2b673df 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -10783,19 +10783,6 @@ package body Sem_Attr is end; end if; - -- The following comes from a query concerning improper use of - -- universal_access in equality tests involving anonymous access - -- types. Another good reason for 'Ref, but for now disable the - -- test, which breaks several filed tests??? - - if Ekind (Typ) = E_Anonymous_Access_Type - and then Nkind (Parent (N)) in N_Op_Eq | N_Op_Ne - and then False - then - Error_Msg_N ("need unique type to resolve 'Access", N); - Error_Msg_N ("\qualify attribute with some access type", N); - end if; - -- Case where prefix is an entity name if Is_Entity_Name (P) then |