From: Robert Dewar Date: Fri, 1 Aug 2008 09:29:48 +0000 (+0200) Subject: sem_ch4.adb: Minor reformatting Minor code reorganization X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=63319f5837a6c824e4a8efae913d57e058c4efbf;p=gcc.git sem_ch4.adb: Minor reformatting Minor code reorganization 2008-08-01 Robert Dewar * sem_ch4.adb: Minor reformatting Minor code reorganization From-SVN: r138495 --- diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 128ba5a2ee2..eb9b52e3d17 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