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/einfo-utils.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/einfo-utils.adb')
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index d713777..0ef5e1d 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -2676,7 +2676,7 @@ package body Einfo.Utils is function Scope_Depth_Set (Id : E) return B is begin return not Is_Record_Type (Id) - and then not Field_Is_Initial_Zero (Id, Scope_Depth_Value); + and then not Field_Is_Initial_Zero (Id, F_Scope_Depth_Value); -- We can't call Scope_Depth_Value here, because Empty is not a valid -- value of type Uint. end Scope_Depth_Set; |