From 86828d402fb5a42decd66f210038d31842ab10de Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 2 Sep 2011 11:03:06 +0200 Subject: [multiple changes] 2011-09-02 Ed Schonberg * sem_ch5.adb (Analyze_Iterator_Specification): If the domain of iteration is an expression, its value must be captured in a renaming declaration, so that modification of the elements is propagated to the original container. 2011-09-02 Pascal Obry * prj-proc.adb, prj.adb, makeutl.adb, makeutl.ads, prj-dect.adb, prj-nmsc.adb, prj-util.adb, prj-conf.adb, prj-env.adb, prj-tree.adb: Minor reformatting and style fixes. From-SVN: r178443 --- gcc/ada/makeutl.ads | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc/ada/makeutl.ads') diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads index ceb38bd..8aec8b2 100644 --- a/gcc/ada/makeutl.ads +++ b/gcc/ada/makeutl.ads @@ -336,7 +336,7 @@ package Makeutl is Need_Compilation : Boolean := True; Need_Binding : Boolean := True; Need_Linking : Boolean := True; - -- Which of the compilation phases are needed for this project tree. + -- Which of the compilation phases are needed for this project tree end record; type Builder_Data_Access is access all Builder_Project_Tree_Data; @@ -459,10 +459,10 @@ package Makeutl is Id : Source_Id := null; when Format_Gnatmake => - File : File_Name_Type := No_File; - Unit : Unit_Name_Type := No_Unit_Name; - Index : Int := 0; - Project : Project_Id := No_Project; + File : File_Name_Type := No_File; + Unit : Unit_Name_Type := No_Unit_Name; + Index : Int := 0; + Project : Project_Id := No_Project; end case; end record; -- Information about files stored in the queue. The exact information @@ -473,7 +473,7 @@ package Makeutl is procedure Initialize (Queue_Per_Obj_Dir : Boolean; - Force : Boolean := False); + Force : Boolean := False); -- Initialize the queue. -- Queue_Per_Obj_Dir matches the --single-compile-per-obj-dir switch: -- when True, there cannot be simultaneous compilations with the object -- cgit v1.1