exp_ch2.adb (Param_Entity): Take the case of an expanded_name denoting a formal parameter into account.
2005-06-14 Thomas Quinot <quinot@adacore.com> * exp_ch2.adb (Param_Entity): Take the case of an expanded_name denoting a formal parameter into account. From-SVN: r101032
This commit is contained in:
parent
643a083902
commit
dbf663a91f
|
@ -713,7 +713,7 @@ package body Exp_Ch2 is
|
|||
begin
|
||||
-- Simple reference case
|
||||
|
||||
if Nkind (N) = N_Identifier then
|
||||
if Nkind (N) = N_Identifier or else Nkind (N) = N_Expanded_Name then
|
||||
if Is_Formal (Entity (N)) then
|
||||
return Entity (N);
|
||||
|
||||
|
|
Loading…
Reference in New Issue