diff options
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 7eca831d277..31c689e232b 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -6485,11 +6485,9 @@ package body Exp_Ch4 is return; elsif Nkind (Parnt) = N_Attribute_Reference - and then (Attribute_Name (Parnt) = Name_Address - or else - Attribute_Name (Parnt) = Name_Bit - or else - Attribute_Name (Parnt) = Name_Size) + and then Nam_In (Attribute_Name (Parnt), Name_Address, + Name_Bit, + Name_Size) and then Prefix (Parnt) = Child then return; |