diff options
Diffstat (limited to 'gcc/ada/par-ch13.adb')
| -rw-r--r-- | gcc/ada/par-ch13.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch13.adb b/gcc/ada/par-ch13.adb index 79d9098..8b2d3d4 100644 --- a/gcc/ada/par-ch13.adb +++ b/gcc/ada/par-ch13.adb @@ -226,8 +226,8 @@ package body Ch13 is -- are meant to be used only by the compiler. if not Is_Attribute_Name (Attr_Name) - or else (Is_Internal_Attribute_Name (Attr_Name) - and then Comes_From_Source (Token_Node)) + and then (not Is_Internal_Attribute_Name (Attr_Name) + or else Comes_From_Source (Token_Node)) then Signal_Bad_Attribute; end if; |