diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-12-03 20:25:50 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-03 21:25:50 +0100 |
| commit | 767b404e811505cb48b0d057e8d452a74ced0c0b (patch) | |
| tree | 013e2257c997ce255f4dc8426523f7669b0329ca /gcc/ada | |
| parent | 11ac71ba8a1e4108fa874f25ca249dd2ce6d661a (diff) | |
| download | gcc-767b404e811505cb48b0d057e8d452a74ced0c0b.zip gcc-767b404e811505cb48b0d057e8d452a74ced0c0b.tar.gz gcc-767b404e811505cb48b0d057e8d452a74ced0c0b.tar.bz2 | |
prj-proc.adb: Minor reformatting
* prj-proc.adb: Minor reformatting
* make.adb: Minor reformatting
From-SVN: r47562
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/make.adb | 22 | ||||
| -rw-r--r-- | gcc/ada/prj-proc.adb | 7 |
3 files changed, 21 insertions, 14 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 201778c..6a5bf50 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -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> * make.adb: Minor reformatting. diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 7e78fc9..bab1109 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -1674,15 +1674,19 @@ package body Make is declare Defaults : constant Array_Element_Id := - Prj.Util.Value_Of - (Name => Name_Default_Switches, - In_Arrays => Packages.Table - (Compiler_Package).Decl.Arrays); + Prj.Util.Value_Of + (Name => Name_Default_Switches, + In_Arrays => + Packages.Table + (Compiler_Package) .Decl.Arrays); + Switches_Array : constant Array_Element_Id := - Prj.Util.Value_Of - (Name => Name_Switches, - In_Arrays => Packages.Table - (Compiler_Package).Decl.Arrays); + Prj.Util.Value_Of + (Name => Name_Switches, + In_Arrays => + Packages.Table + (Compiler_Package). + Decl.Arrays); begin Switches := @@ -1695,9 +1699,7 @@ package body Make is Prj.Util.Value_Of (Index => Name_Ada, In_Array => Defaults); end if; - end; - end if; case Switches.Kind is diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index eece34c..5dbb7e0 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -27,7 +27,6 @@ ------------------------------------------------------------------------------ with Errout; use Errout; -with GNAT.Case_Util; with Namet; use Namet; with Opt; with Output; use Output; @@ -37,6 +36,7 @@ with Prj.Ext; use Prj.Ext; with Prj.Nmsc; use Prj.Nmsc; with Stringt; use Stringt; +with GNAT.Case_Util; with GNAT.HTable; package body Prj.Proc is @@ -75,7 +75,7 @@ package body Prj.Proc is function Imported_Or_Modified_Project_From (Project : Project_Id; With_Name : Name_Id) - return Project_Id; + return Project_Id; -- Find an imported or modified project of Project whose name is With_Name. function Package_From @@ -641,6 +641,7 @@ package body Prj.Proc is The_Term := Next_Term (The_Term); end loop; + return Result; end Expression; @@ -682,7 +683,6 @@ package body Prj.Proc is return Project_Lists.Table (List).Project; end if; - end Imported_Or_Modified_Project_From; ------------------ @@ -1267,7 +1267,6 @@ package body Prj.Proc is Prj.Nmsc.Ada_Check (Project, Error_Report); end if; - end Recursive_Check; ----------------------- |