diff options
| author | Bob Duff <duff@adacore.com> | 2021-03-03 16:12:54 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-17 10:32:09 -0400 |
| commit | f54fb769ec25976858e6bdea9c6a1beeb70f91fa (patch) | |
| tree | 166ffd986b9f22a55ed672686760f0aa1c4f2c26 /gcc/ada/sem_ch5.adb | |
| parent | 1b96f017cd4c6eb36afe95c7e7683928274c47fc (diff) | |
| download | gcc-f54fb769ec25976858e6bdea9c6a1beeb70f91fa.zip gcc-f54fb769ec25976858e6bdea9c6a1beeb70f91fa.tar.gz gcc-f54fb769ec25976858e6bdea9c6a1beeb70f91fa.tar.bz2 | |
[Ada] Fix varsize node name conflict
gcc/ada/
* gen_il-gen.adb, gen_il-internals.ads: Generate field
enumeration literals with "F_" prefix. Update all generated
references accordingly.
* atree.adb, einfo-utils.adb, sem_ch3.adb, sem_ch5.adb,
sem_ch6.adb, sem_ch8.adb, sinfo-cn.adb, sinfo-utils.adb,
sinfo-utils.ads, treepr.adb: Add "F_" prefix to all uses of the
field enumeration literals.
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 453b50e..2c0bb5f 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -1320,7 +1320,7 @@ package body Sem_Ch5 is else if Ekind (Ent) = E_Label then - Reinit_Field_To_Zero (Ent, Enclosing_Scope); + Reinit_Field_To_Zero (Ent, F_Enclosing_Scope); end if; Mutate_Ekind (Ent, E_Block); @@ -3760,7 +3760,7 @@ package body Sem_Ch5 is -- parser for generic units. if Ekind (Ent) = E_Label then - Reinit_Field_To_Zero (Ent, Enclosing_Scope); + Reinit_Field_To_Zero (Ent, F_Enclosing_Scope); Mutate_Ekind (Ent, E_Loop); if Nkind (Parent (Ent)) = N_Implicit_Label_Declaration then |