Message ID | 20190820095129.GA75614@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Inconsistent scope chain due to quantified expression | expand |
--- gcc/ada/exp_util.adb +++ gcc/ada/exp_util.adb @@ -1977,6 +1977,7 @@ package body Exp_Util is Set_Scope (Obj_Id, Proc_Id); Set_First_Entity (Proc_Id, Obj_Id); + Set_Last_Entity (Proc_Id, Obj_Id); -- Generate: -- procedure <Work_Typ>DIC (_object : <Work_Typ>);