diff options
| author | Pierre-Marie de Rodat <derodat@adacore.com> | 2023-10-19 12:17:24 +0000 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-11-21 10:57:40 +0100 |
| commit | fee5b643574e16cb2860ab6d6e26ccb0ed60f91a (patch) | |
| tree | 57724178e09eaa029c7b925aacaf5355c89a92ae /gcc/ada | |
| parent | 4b7d0f22b1357a407856571ad1945bbb4ca22f0c (diff) | |
| download | gcc-fee5b643574e16cb2860ab6d6e26ccb0ed60f91a.zip gcc-fee5b643574e16cb2860ab6d6e26ccb0ed60f91a.tar.gz gcc-fee5b643574e16cb2860ab6d6e26ccb0ed60f91a.tar.bz2 | |
ada: Fix SCOs generation for aspect specifications
The recent overhaul for the representation of aspect specifications in
the tree broke SCOs generation: decisions that appeared in aspects were
processed twice, leading to the emission of erroneous obligations. Tweak
SCOs generation to skip aspect specifications the second time to go back
to the previous behavior.
gcc/ada/
* par_sco.adb (Process_Decisions)<Process_Node>: Skip aspect
specifications.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/par_sco.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb index 0639ca6..84af8bf 100644 --- a/gcc/ada/par_sco.adb +++ b/gcc/ada/par_sco.adb @@ -751,6 +751,13 @@ package body Par_SCO is begin case Nkind (N) is + -- Aspect specifications have dedicated processings (see + -- Traverse_Aspects) so ignore them here, so that they are + -- processed only once. + + when N_Aspect_Specification => + return Skip; + -- Logical operators, output table entries and then process -- operands recursively to deal with nested conditions. |