2011-09-02 Ed Schonberg <schonberg@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / prj-conf.adb

diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb
index ae1d0c6..a129122 100644 (file)
--- a/gcc/ada/prj-conf.adb
+++ b/gcc/ada/prj-conf.adb
@@ -508,9 +508,9 @@ package body Prj.Conf is
 
                else
                   Add_Attributes
-                    (Project_Tree      => Project_Tree,
-                     Conf_Decl         => Conf_Pack.Decl,
-                     User_Decl         =>
+                    (Project_Tree => Project_Tree,
+                     Conf_Decl    => Conf_Pack.Decl,
+                     User_Decl    =>
                        Shared.Packages.Table (User_Pack_Id).Decl);
                end if;
 
@@ -532,8 +532,7 @@ package body Prj.Conf is
                        ("Recursively apply config to aggregated tree",
                         List.Project.Name);
                      Apply_Config_File
-                       (Config_File,
-                        Project_Tree      => List.Tree);
+                       (Config_File, Project_Tree => List.Tree);
                      List := List.Next;
                   end loop;
                end;
@@ -1132,8 +1131,7 @@ package body Prj.Conf is
 
             if Config_File_Name = "" then
                if Obj_Dir_Exists then
-                  Args (3) :=
-                    new String'(Obj_Dir & Directory_Separator & Auto_Cgpr);
+                  Args (3) := new String'(Obj_Dir & Auto_Cgpr);
 
                else
                   declare
@@ -1154,9 +1152,7 @@ package body Prj.Conf is
                      else
                         --  We'll have an error message later on
 
-                        Args (3) :=
-                          new String'
-                            (Obj_Dir & Directory_Separator & Auto_Cgpr);
+                        Args (3) := new String'(Obj_Dir & Auto_Cgpr);
                      end if;
                   end;
                end if;