[Ada] Remove disabled code
authorArnaud Charlet <charlet@adacore.com>
Wed, 17 Jun 2020 08:41:44 +0000 (10:41 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 27 Jul 2020 08:05:18 +0000 (04:05 -0400)
gcc/ada/

* sem_attr.adb (Resolve_Attribute): Remove dead code.

gcc/ada/sem_attr.adb

index 16938e6..b35f2b6 100644 (file)
@@ -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