From 056ea2ec8ee6501d0068948746c71796a9d38e14 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 12 Dec 2019 12:02:22 +0100 Subject: [PATCH] [Ada] Remove dead code for detecting hidden package state 2020-06-02 Piotr Trojanek gcc/ada/ * sem_util.adb (Check_No_Hidden_State): Remove dead code. --- gcc/ada/sem_util.adb | 6 ------ 1 file changed, 6 deletions(-) diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 814d5039867c..650226e96ec0 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -3398,12 +3398,6 @@ package body Sem_Util is or else Ekind_In (Context, E_Block, E_Task_Type) then return; - - -- When examining a package body, use the entity of the spec as it - -- carries the abstract state declarations. - - elsif Ekind (Context) = E_Package_Body then - Context := Spec_Entity (Context); end if; -- Stop the traversal when a package subject to a null abstract state -- 2.47.2