Message ID | 20171215141136.GA97921@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Spurious alias error on access to array indexed by non-standard enum | expand |
Index: sem_attr.adb =================================================================== --- sem_attr.adb (revision 255678) +++ sem_attr.adb (working copy) @@ -11111,7 +11111,7 @@ and then not (Nkind (P) = N_Selected_Component and then Is_Overloadable (Entity (Selector_Name (P)))) - and then not Is_Aliased_View (P) + and then not Is_Aliased_View (Original_Node (P)) and then not In_Instance and then not In_Inlined_Body and then Comes_From_Source (N)