OSDN Git Service

2008-08-20 Robert Dewar <dewar@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Aug 2008 15:51:02 +0000 (15:51 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Aug 2008 15:51:02 +0000 (15:51 +0000)
* make.adb: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139321 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/prj-proc.adb

index 2fb4d75..03e7327 100644 (file)
@@ -1491,8 +1491,8 @@ package body Prj.Proc is
                              (Name     => Current_Item_Name,
                               Location => Current_Location,
                               Value    => No_Array_Element,
-                              Next     =>
-                                In_Tree.Packages.Table (Pkg).Decl.Arrays);
+                              Next     => In_Tree.Packages.Table
+                                            (Pkg).Decl.Arrays);
 
                            In_Tree.Packages.Table (Pkg).Decl.Arrays :=
                              New_Array;
@@ -1502,8 +1502,8 @@ package body Prj.Proc is
                              (Name     => Current_Item_Name,
                               Location => Current_Location,
                               Value    => No_Array_Element,
-                              Next     =>
-                                In_Tree.Projects.Table (Project).Decl.Arrays);
+                              Next     => In_Tree.Projects.Table
+                                            (Project).Decl.Arrays);
 
                            In_Tree.Projects.Table (Project).Decl.Arrays :=
                              New_Array;
@@ -1985,9 +1985,8 @@ package body Prj.Proc is
                                    (Name     => Current_Item_Name,
                                     Location => Current_Location,
                                     Value    => No_Array_Element,
-                                    Next     =>
-                                      In_Tree.Packages.Table
-                                        (Pkg).Decl.Arrays);
+                                    Next     => In_Tree.Packages.Table
+                                                  (Pkg).Decl.Arrays);
 
                                  In_Tree.Packages.Table (Pkg).Decl.Arrays :=
                                      The_Array;
@@ -1997,9 +1996,8 @@ package body Prj.Proc is
                                    (Name     => Current_Item_Name,
                                     Location => Current_Location,
                                     Value    => No_Array_Element,
-                                    Next     =>
-                                      In_Tree.Projects.Table
-                                        (Project).Decl.Arrays);
+                                    Next     => In_Tree.Projects.Table
+                                                  (Project).Decl.Arrays);
 
                                  In_Tree.Projects.Table
                                    (Project).Decl.Arrays := The_Array;