From 7f365be815ea6543ebfddb7d1688817cde5b223b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 17 Jun 2020 10:41:44 +0200 Subject: [PATCH] [Ada] Remove disabled code gcc/ada/ * sem_attr.adb (Resolve_Attribute): Remove dead code. --- gcc/ada/sem_attr.adb | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 16938e6..b35f2b6 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 -- 2.7.4