FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gnatcmd.adb, [...]: Minor reformatting.

Browse source 
2011-12-23  Pascal Obry  <obry@adacore.com>

	* gnatcmd.adb, prj.adb, prj-nmsc.adb: Minor reformatting.

From-SVN: r182655
This commit is contained in:
Pascal Obry 2011-12-23 09:34:21 +00:00 • committed by Arnaud Charlet
parent e46bf5d625
commit 7471389a77
4 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/ChangeLog
View file

@ -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

2
gcc/ada/gnatcmd.adb
View file

@ -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

4
gcc/ada/prj-nmsc.adb
View file

@ -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;

2
gcc/ada/prj.adb
View file

@ -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.