diff options
| author | Pascal Obry <obry@adacore.com> | 2011-12-23 09:34:21 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-23 10:34:21 +0100 |
| commit | 7471389a77a42e571105fc0b03738a1c3e4ca50d (patch) | |
| tree | 236db547a2dabd88549af874f9b92435ac0f9235 /gcc/ada | |
| parent | e46bf5d625d4e20b11f3a001d41247be330d4b1b (diff) | |
| download | gcc-7471389a77a42e571105fc0b03738a1c3e4ca50d.zip gcc-7471389a77a42e571105fc0b03738a1c3e4ca50d.tar.gz gcc-7471389a77a42e571105fc0b03738a1c3e4ca50d.tar.bz2 | |
gnatcmd.adb, [...]: Minor reformatting.
2011-12-23 Pascal Obry <obry@adacore.com>
* gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting.
From-SVN: r182655
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/prj.adb | 2 |
4 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0137afe..c8e27d2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-12-23 Pascal Obry <obry@adacore.com> + + * gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting. + 2011-12-22 Hristian Kirtchev <kirtchev@adacore.com> * exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Create the objects diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 2e1b8dd8..b0a9fd1 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -2091,7 +2091,7 @@ begin begin if Pkg /= No_Package then - -- First, check if there is a single main specified. + -- First, check if there is a single main specified for J in 1 .. Last_Switches.Last loop if Last_Switches.Table (J) (1) /= '-' then diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index c3cb4b6..7c5d5f3 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -116,7 +116,7 @@ package body Prj.Nmsc is end record; No_File_Found : constant File_Found := - (No_File, No_File, 0, False, No_Location); + (No_File, No_File, 0, False, No_Location); package Excluded_Sources_Htable is new GNAT.Dynamic_HTables.Simple_HTable (Header_Num => Header_Num, @@ -4847,7 +4847,7 @@ package body Prj.Nmsc is (Get_Name_String (Lib_Symbol_Policy.Value)); begin - -- Symbol policy must hove one of a limited number of values + -- Symbol policy must have one of a limited number of values if Value = "autonomous" or else Value = "default" then Project.Symbol_Data.Symbol_Policy := Autonomous; diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 97b23bd..c480cf33 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -523,6 +523,7 @@ package body Prj is Include_Aggregated : Boolean := True; Imported_First : Boolean := False) is + use Project_Boolean_Htable; Seen : Project_Boolean_Htable.Instance := Project_Boolean_Htable.Nil; @@ -544,6 +545,7 @@ package body Prj is begin if not Get (Seen, Project) then + -- Even if a project is aggregated multiple times, we will only -- return it once. |