From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 17 Jun 2020 08:41:44 +0000 (+0200)
Subject: [Ada] Remove disabled code
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7f365be815ea6543ebfddb7d1688817cde5b223b;p=gcc.git

[Ada] Remove disabled code

gcc/ada/

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

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