diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-02 11:03:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-02 11:03:06 +0200 |
| commit | 86828d402fb5a42decd66f210038d31842ab10de (patch) | |
| tree | 3cc39fa5b2007e048947833a8015781bb4009c7c /gcc/ada/makeutl.ads | |
| parent | da6feecef69362b16cb1fda204bc150ab0f852be (diff) | |
| download | gcc-86828d402fb5a42decd66f210038d31842ab10de.zip gcc-86828d402fb5a42decd66f210038d31842ab10de.tar.gz gcc-86828d402fb5a42decd66f210038d31842ab10de.tar.bz2 | |
[multiple changes]
2011-09-02 Ed Schonberg <schonberg@adacore.com>
* 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 <obry@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/makeutl.ads')
| -rw-r--r-- | gcc/ada/makeutl.ads | 12 |
1 files changed, 6 insertions, 6 deletions
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 |