+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.
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 :=
Prj.Util.Value_Of
(Index => Name_Ada, In_Array => Defaults);
end if;
-
end;
-
end if;
case Switches.Kind is
------------------------------------------------------------------------------
with Errout; use Errout;
-with GNAT.Case_Util;
with Namet; use Namet;
with Opt;
with Output; use Output;
with Prj.Nmsc; use Prj.Nmsc;
with Stringt; use Stringt;
+with GNAT.Case_Util;
with GNAT.HTable;
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
The_Term := Next_Term (The_Term);
end loop;
+
return Result;
end Expression;
return Project_Lists.Table (List).Project;
end if;
-
end Imported_Or_Modified_Project_From;
------------------
Prj.Nmsc.Ada_Check (Project, Error_Report);
end if;
-
end Recursive_Check;
-----------------------