From dbf663a91f6415e6f8f8d37943f0cbef92fa4b71 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Thu, 16 Jun 2005 10:37:02 +0200 Subject: [PATCH] exp_ch2.adb (Param_Entity): Take the case of an expanded_name denoting a formal parameter into account. 2005-06-14 Thomas Quinot * exp_ch2.adb (Param_Entity): Take the case of an expanded_name denoting a formal parameter into account. From-SVN: r101032 --- gcc/ada/exp_ch2.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index bb855415fd7..8327aaf72e5 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -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); -- 2.30.2