From 0bfa32f922bc432fce94283661e15079d389c515 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 19 Mar 2020 00:08:36 +0100 Subject: [PATCH] [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(-) 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 -- 2.7.4