diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-03-19 00:08:36 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-11 05:53:53 -0400 |
| commit | 0bfa32f922bc432fce94283661e15079d389c515 (patch) | |
| tree | b15e7e803326b9a5c4bf2d68736ac5663375ee5e /gcc | |
| parent | 5c4adf10c5637284e63fffce8a7ac4ee6afbce29 (diff) | |
| download | gcc-0bfa32f922bc432fce94283661e15079d389c515.zip gcc-0bfa32f922bc432fce94283661e15079d389c515.tar.gz gcc-0bfa32f922bc432fce94283661e15079d389c515.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 |