diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-06-11 19:29:22 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-06-27 10:19:12 +0200 |
| commit | d4c990759bcdc1f2b3384397cae6d8cb76a4cdad (patch) | |
| tree | 49bf4c170d4d008cdbf48af329a870e8286d8e99 /gcc/ada/sem_dim.adb | |
| parent | 432b8a346e10488a1751b86e7c51fff3ee870ae4 (diff) | |
| download | gcc-d4c990759bcdc1f2b3384397cae6d8cb76a4cdad.zip gcc-d4c990759bcdc1f2b3384397cae6d8cb76a4cdad.tar.gz gcc-d4c990759bcdc1f2b3384397cae6d8cb76a4cdad.tar.bz2 | |
ada: Add missing dimension information for target names
It is computed from the Etype of N_Target_Name nodes.
gcc/ada/
* sem_ch5.adb (Analyze_Target_Name): Call Analyze_Dimension on the
node once the Etype is set.
* sem_dim.adb (OK_For_Dimension): Set to True for N_Target_Name.
(Analyze_Dimension): Call Analyze_Dimension_Has_Etype for it.
Diffstat (limited to 'gcc/ada/sem_dim.adb')
| -rw-r--r-- | gcc/ada/sem_dim.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 45a0f2a..39c3633 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -219,6 +219,7 @@ package body Sem_Dim is N_Real_Literal => True, N_Selected_Component => True, N_Slice => True, + N_Target_Name => True, N_Type_Conversion => True, N_Unchecked_Type_Conversion => True, @@ -1179,6 +1180,7 @@ package body Sem_Dim is | N_Qualified_Expression | N_Selected_Component | N_Slice + | N_Target_Name | N_Unchecked_Type_Conversion => Analyze_Dimension_Has_Etype (N); |