From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7871) id 9F05F385840D; Tue, 8 Nov 2022 08:40:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 9F05F385840D DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1667896859; bh=mRaAcfVYVmbN5W4/kFPO0N6OAs6PneUr0zjC4GePwlU=; h=From:To:Subject:Date:From; b=IvAF5OVlWOWqcrMWwbSsPiy797XhwTdU/S6NyH9AjgKXMLMwvxdslEzgCCUKMO5Ad +uQUPHzrytp3/kncVh3Ye0Tg1c8L3CmAZb7VHX60yaFt1AWosFvhxJeMLrRxdh3wJP S6ImAL4uM2IAjsUGUNoQ/bHMBdHzjojUJNtVNd4c= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Marc Poulhi?s To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-3783] ada: Remove unneeded code in handling formal type defaults X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: 5c0722cb40ac1be1e5c40b3aff6fc7b58e3e4cba X-Git-Newrev: d96a20bf2ef939c0dd9d2bb32c59267842279c29 Message-Id: <20221108084059.9F05F385840D@sourceware.org> Date: Tue, 8 Nov 2022 08:40:59 +0000 (GMT) List-Id: https://gcc.gnu.org/g:d96a20bf2ef939c0dd9d2bb32c59267842279c29 commit r13-3783-gd96a20bf2ef939c0dd9d2bb32c59267842279c29 Author: Piotr Trojanek Date: Tue Sep 6 23:20:47 2022 +0200 ada: Remove unneeded code in handling formal type defaults Unneeded code found while experimenting with improved detection of unreferenced objects. gcc/ada/ * sem_ch12.adb (Validate_Formal_Type_Default): Remove call to Collect_Interfaces, which had no effect apart from populating a list that was not used; fix style. Diff: --- gcc/ada/sem_ch12.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 2b7833dfdcd..ca0f4913e36 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -17303,13 +17303,11 @@ package body Sem_Ch12 is else declare - Act_Iface_List : Elist_Id; - Iface : Node_Id; - Iface_Ent : Entity_Id; + Iface : Node_Id; + Iface_Ent : Entity_Id; begin Iface := First (Abstract_Interface_List (Formal)); - Collect_Interfaces (Def_Sub, Act_Iface_List); while Present (Iface) loop Iface_Ent := Entity (Iface);