diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-19 00:08:36 +0100 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:12:12 -0300 |
| commit | ebfa36b0cb40cfcb1a13b8066f911e7228978708 (patch) | |
| tree | 9f8db01d1542040925a7583fc67eed184e461e2f /gcc | |
| parent | bb1bc927507523339f183d9109e462b64112d894 (diff) | |
| download | gcc-ebfa36b0cb40cfcb1a13b8066f911e7228978708.zip gcc-ebfa36b0cb40cfcb1a13b8066f911e7228978708.tar.gz gcc-ebfa36b0cb40cfcb1a13b8066f911e7228978708.tar.bz2 | |
[Ada] Refine type of a routine parameter from Node_Id to Entity_Id
2020-06-11 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* sem_aggr.adb (Get_Value): Refine type of the Compon parameter.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 4 |
1 files 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 |