diff options
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. |