diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-01 11:29:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:29:48 +0200 |
| commit | 63319f5837a6c824e4a8efae913d57e058c4efbf (patch) | |
| tree | e721eb6d017b340193471e819eb4923db4995855 /gcc/ada | |
| parent | 9c391a215620cb6fd743a64823c453b3690e32b5 (diff) | |
| download | gcc-63319f5837a6c824e4a8efae913d57e058c4efbf.zip gcc-63319f5837a6c824e4a8efae913d57e058c4efbf.tar.gz gcc-63319f5837a6c824e4a8efae913d57e058c4efbf.tar.bz2 | |
sem_ch4.adb: Minor reformatting Minor code reorganization
2008-08-01 Robert Dewar <dewar@adacore.com>
* sem_ch4.adb: Minor reformatting
Minor code reorganization
From-SVN: r138495
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 128ba5a..eb9b52e 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -684,14 +684,15 @@ package body Sem_Ch4 is procedure Analyze_Call (N : Node_Id) is Actuals : constant List_Id := Parameter_Associations (N); - Nam : Node_Id := Name (N); + Nam : Node_Id; X : Interp_Index; It : Interp; Nam_Ent : Entity_Id; - Deref : Boolean := False; + Success : Boolean := False; + + Deref : Boolean := False; -- Flag indicates whether an interpretation of the prefix is a -- parameterless call that returns an access_to_subprogram. - Success : Boolean := False; function Name_Denotes_Function return Boolean; -- If the type of the name is an access to subprogram, this may be the @@ -765,6 +766,8 @@ package body Sem_Ch4 is Set_Etype (N, Any_Type); + Nam := Name (N); + if not Is_Overloaded (Nam) then -- Only one interpretation to check |