From 63319f5837a6c824e4a8efae913d57e058c4efbf Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 1 Aug 2008 11:29:48 +0200 Subject: [PATCH] sem_ch4.adb: Minor reformatting Minor code reorganization 2008-08-01 Robert Dewar * sem_ch4.adb: Minor reformatting Minor code reorganization From-SVN: r138495 --- gcc/ada/sem_ch4.adb | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 128ba5a2ee2f..eb9b52e3d178 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 -- 2.47.2