From: Piotr Trojanek Date: Wed, 18 Mar 2020 23:08:36 +0000 (+0100) Subject: [Ada] Refine type of a routine parameter from Node_Id to Entity_Id X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0bfa32f922bc432fce94283661e15079d389c515;p=gcc.git [Ada] Refine type of a routine parameter from Node_Id to Entity_Id 2020-06-11 Piotr Trojanek gcc/ada/ * sem_aggr.adb (Get_Value): Refine type of the Compon parameter. --- diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 19c44c274a2..210779c7ded 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3336,7 +3336,7 @@ package body Sem_Aggr is -- of the ancestor. function Get_Value - (Compon : Node_Id; + (Compon : Entity_Id; From : List_Id; Consider_Others_Choice : Boolean := False) return Node_Id; -- Given a record component stored in parameter Compon, this function @@ -3614,7 +3614,7 @@ package body Sem_Aggr is --------------- function Get_Value - (Compon : Node_Id; + (Compon : Entity_Id; From : List_Id; Consider_Others_Choice : Boolean := False) return Node_Id is