diff options
Diffstat (limited to 'gcc/ada/sinfo.adb')
-rw-r--r-- | gcc/ada/sinfo.adb | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 916e0ae5843..b36b930b8c4 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -254,7 +254,10 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Expanded_Name - or else NT (N).Nkind = N_Identifier); + or else NT (N).Nkind = N_Explicit_Dereference + or else NT (N).Nkind = N_Identifier + or else NT (N).Nkind = N_Indexed_Component + or else NT (N).Nkind = N_Selected_Component); return Flag14 (N); end Atomic_Sync_Required; @@ -3323,7 +3326,10 @@ package body Sinfo is begin pragma Assert (False or else NT (N).Nkind = N_Expanded_Name - or else NT (N).Nkind = N_Identifier); + or else NT (N).Nkind = N_Explicit_Dereference + or else NT (N).Nkind = N_Identifier + or else NT (N).Nkind = N_Indexed_Component + or else NT (N).Nkind = N_Selected_Component); Set_Flag14 (N, Val); end Set_Atomic_Sync_Required; |