mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-21 20:52:49 +08:00
Code Issues Packages Projects Releases Wiki Activity

prj-proc.adb: Minor reformatting

Browse Source 
* prj-proc.adb: Minor reformatting

	* make.adb: Minor reformatting

From-SVN: r47562
This commit is contained in:
Robert Dewar 2001-12-03 20:25:50 +00:00 committed by Geert Bosch
parent 11ac71ba8a
commit 767b404e81
3 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2001-12-03 Robert Dewar <dewar@gnat.com>
* prj-proc.adb: Minor reformatting
* make.adb: Minor reformatting
2001-12-03 Geert Bosch <bosch@gnat.com> 2001-12-03 Geert Bosch <bosch@gnat.com>
* make.adb: Minor reformatting. * make.adb: Minor reformatting.

22
gcc/ada/make.adb
View File

@ -1674,15 +1674,19 @@ package body Make is
declare declare
Defaults : constant Array_Element_Id := Defaults : constant Array_Element_Id :=
Prj.Util.Value_Of Prj.Util.Value_Of
(Name => Name_Default_Switches, (Name => Name_Default_Switches,
In_Arrays => Packages.Table In_Arrays =>
(Compiler_Package).Decl.Arrays); Packages.Table
(Compiler_Package) .Decl.Arrays);
Switches_Array : constant Array_Element_Id := Switches_Array : constant Array_Element_Id :=
Prj.Util.Value_Of Prj.Util.Value_Of
(Name => Name_Switches, (Name => Name_Switches,
In_Arrays => Packages.Table In_Arrays =>
(Compiler_Package).Decl.Arrays); Packages.Table
(Compiler_Package).
Decl.Arrays);
begin begin
Switches := Switches :=
@ -1695,9 +1699,7 @@ package body Make is
Prj.Util.Value_Of Prj.Util.Value_Of
(Index => Name_Ada, In_Array => Defaults); (Index => Name_Ada, In_Array => Defaults);
end if; end if;
end; end;
end if; end if;
case Switches.Kind is case Switches.Kind is

7
gcc/ada/prj-proc.adb
View File

@ -27,7 +27,6 @@
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Errout; use Errout; with Errout; use Errout;
with GNAT.Case_Util;
with Namet; use Namet; with Namet; use Namet;
with Opt; with Opt;
with Output; use Output; with Output; use Output;
@ -37,6 +36,7 @@ with Prj.Ext; use Prj.Ext;
with Prj.Nmsc; use Prj.Nmsc; with Prj.Nmsc; use Prj.Nmsc;
with Stringt; use Stringt; with Stringt; use Stringt;
with GNAT.Case_Util;
with GNAT.HTable; with GNAT.HTable;
package body Prj.Proc is package body Prj.Proc is
@ -75,7 +75,7 @@ package body Prj.Proc is
function Imported_Or_Modified_Project_From function Imported_Or_Modified_Project_From
(Project : Project_Id; (Project : Project_Id;
With_Name : Name_Id) With_Name : Name_Id)
return Project_Id; return Project_Id;
-- Find an imported or modified project of Project whose name is With_Name. -- Find an imported or modified project of Project whose name is With_Name.
function Package_From function Package_From
@ -641,6 +641,7 @@ package body Prj.Proc is
The_Term := Next_Term (The_Term); The_Term := Next_Term (The_Term);
end loop; end loop;
return Result; return Result;
end Expression; end Expression;
@ -682,7 +683,6 @@ package body Prj.Proc is
return Project_Lists.Table (List).Project; return Project_Lists.Table (List).Project;
end if; end if;
end Imported_Or_Modified_Project_From; end Imported_Or_Modified_Project_From;
------------------ ------------------
@ -1267,7 +1267,6 @@ package body Prj.Proc is
Prj.Nmsc.Ada_Check (Project, Error_Report); Prj.Nmsc.Ada_Check (Project, Error_Report);
end if; end if;
end Recursive_Check; end Recursive_Check;
----------------------- -----------------------