projects
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
643a083
)
exp_ch2.adb (Param_Entity): Take the case of an expanded_name denoting a formal param...
author
Thomas Quinot
<quinot@adacore.com>
Thu, 16 Jun 2005 08:37:02 +0000
(10:37 +0200)
committer
Arnaud Charlet
<charlet@gcc.gnu.org>
Thu, 16 Jun 2005 08:37:02 +0000
(10:37 +0200)
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
gcc/ada/exp_ch2.adb
patch
|
blob
|
history
diff --git
a/gcc/ada/exp_ch2.adb
b/gcc/ada/exp_ch2.adb
index bb855415fd743f15f1b9cacd7dc10ada948a706c..8327aaf72e522a840a88865e595ef05c77c7b6ae 100644
(file)
--- 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);