From ebfa36b0cb40cfcb1a13b8066f911e7228978708 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 19 Mar 2020 00:08:36 +0100 Subject: [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. --- gcc/ada/sem_aggr.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 19c44c2..210779c 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 -- cgit v1.1