sem_attr.adb, [...]: Minor reformatting.

2011-09-06  Robert Dewar  <dewar@adacore.com>

	* sem_attr.adb, prj-nmsc.adb, exp_aggr.adb: Minor reformatting.

From-SVN: r178589

gcc/ada/ChangeLog

+2011-09-06  Robert Dewar  <dewar@adacore.com>
+
+	* sem_attr.adb, prj-nmsc.adb, exp_aggr.adb: Minor reformatting.
+
 2011-09-06  Ed Schonberg  <schonberg@adacore.com>
 
 	* lib-xref.adb (OK_To_Set_Referenced): A reference to a formal

gcc/ada/exp_aggr.adb

@@ -2331,8 +2331,8 @@ package body Exp_Aggr is
                Generate_Finalization_Actions;
 
                Append_List_To (L,
-                  Build_Record_Aggr_Code (
-                    N   => Unqualify (Ancestor),
+                  Build_Record_Aggr_Code
+                    (N   => Unqualify (Ancestor),
                      Typ => Etype (Unqualify (Ancestor)),
                      Lhs => Target));
 

gcc/ada/prj-nmsc.adb

@@ -6913,7 +6913,6 @@ package body Prj.Nmsc is
                         Name_Loc.Source.Unit.Name,
                         Name_Loc.Source.Unit);
                   end if;
-
                end if;
             end if;
          end if;
@@ -7103,7 +7102,8 @@ package body Prj.Nmsc is
             exit when Last = 0;
 
             if Name (1 .. Last) /= "."
-              and then Name (1 .. Last) /= ".."
+                 and then
+               Name (1 .. Last) /= ".."
             then
                declare
                   Path_Name : constant String :=
@@ -7256,6 +7256,7 @@ package body Prj.Nmsc is
          end if;
 
          if not Has_Error then
+
             --  Links have been resolved if necessary, and Path_Name
             --  always ends with a directory separator.
 
@@ -7368,7 +7369,6 @@ package body Prj.Nmsc is
 
                   loop
                      Read (Dir, Name, Last);
-
                      exit when Last = 0;
 
                      --  In fast project loading mode (without -eL), the user

gcc/ada/sem_attr.adb

@@ -3024,8 +3024,10 @@ package body Sem_Attr is
          --  Attribute Descriptor_Size is relevant only in the context of an
          --  unconstrained array type.
 
+         --  Shouldn't it just return zero for types other than arrays or
+         --  constrained arrays ???
+
          if Is_Entity_Name (P)
-           and then Is_Type (Entity (P))
            and then Is_Array_Type (Entity (P))
            and then not Is_Constrained (Entity (P))
          then