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

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 128ba5a2ee2ff2a48023f554d0911119d54b5d2c..eb9b52e3d178fbe33e9164b1480a1205af4dac11 100644 (file)
--- 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