diff options
Diffstat (limited to 'gcc/ada/par-prag.adb')
-rw-r--r-- | gcc/ada/par-prag.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index e78f97d..4a3517d 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -120,7 +120,7 @@ function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is procedure Add_List_Pragma_Entry (PT : List_Pragma_Type; Loc : Source_Ptr) is begin if List_Pragmas.Last < List_Pragmas.First - or else (List_Pragmas.Table (List_Pragmas.Last)) /= ((PT, Loc)) + or else List_Pragmas.Table (List_Pragmas.Last) /= (PT, Loc) then List_Pragmas.Append ((PT, Loc)); end if; @@ -176,7 +176,7 @@ function Prag (Pragma_Node : Node_Id; Semi : Source_Ptr) return Node_Id is Error : Boolean := Nkind (Expression (Arg)) /= N_Identifier; begin if not Error then - Error := (Chars (Argx) not in Name_On | Name_Off) + Error := Chars (Argx) not in Name_On | Name_Off and then not (All_OK_Too and Chars (Argx) = Name_All); end if; if Error then |