diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-28 14:51:43 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-09 12:35:24 +0000 |
| commit | 8bab88ba7bec025ef9db7ed5cb8d525fceab8636 (patch) | |
| tree | 7caf441627efc45266b40fb05a4237ba7b740c60 | |
| parent | 48096ca4ac832a7b596b89ed6750a2777f47afa6 (diff) | |
| download | gcc-8bab88ba7bec025ef9db7ed5cb8d525fceab8636.zip gcc-8bab88ba7bec025ef9db7ed5cb8d525fceab8636.tar.gz gcc-8bab88ba7bec025ef9db7ed5cb8d525fceab8636.tar.bz2 | |
[Ada] Refine types of local variables in analysis of expression functions
gcc/ada/
* sem_ch6.adb (Analyze_Expression_Function): Change types local
variables from Entity_Id to Node_Id.
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index aeb1cad..6bc72d6 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -640,9 +640,9 @@ package body Sem_Ch6 is if Present (Parameter_Specifications (New_Spec)) then declare Form_New_Def : Entity_Id; - Form_New_Spec : Entity_Id; + Form_New_Spec : Node_Id; Form_Old_Def : Entity_Id; - Form_Old_Spec : Entity_Id; + Form_Old_Spec : Node_Id; begin Form_New_Spec := First (Parameter_Specifications (New_Spec)); |