Skip to content

R
riscv-gcc-1
Commit 10583694 by Vincent Celier Committed by Arnaud Charlet
Options

prj-env.ads, [...] (Create_Mapping_File (Language)): Remove parameter Runtime_Project. 

2007-09-10  Vincent Celier  <celier@adacore.com>

	* prj-env.ads, prj-env.adb (Create_Mapping_File (Language)): Remove
	parameter Runtime_Project.

From-SVN: r128336
parent 93188a0b
Showing with 9 additions and 13 deletions
gcc/ada/prj-env.adb
...@@ -10,14 +10,13 @@ ...@@ -10,14 +10,13 @@
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 2, or (at your option) any later ver- -- -- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General -- -- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write -- -- Public License distributed with GNAT; see file COPYING3. If not, go to --
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- -- http://www.gnu.org/licenses for a complete copy of the license. --
-- Boston, MA 02110-1301, USA. --
-- -- -- --
-- GNAT was originally developed by the GNAT team at New York University. -- -- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- Extensive contributions were provided by Ada Core Technologies Inc. --
...@@ -1169,7 +1168,6 @@ package body Prj.Env is ...@@ -1169,7 +1168,6 @@ package body Prj.Env is
procedure Create_Mapping_File procedure Create_Mapping_File
(Project : Project_Id; (Project : Project_Id;
Language : Name_Id; Language : Name_Id;
Runtime : Project_Id;
In_Tree : Project_Tree_Ref; In_Tree : Project_Tree_Ref;
Name : out Path_Name_Type) Name : out Path_Name_Type)
is is
...@@ -1221,10 +1219,10 @@ package body Prj.Env is ...@@ -1221,10 +1219,10 @@ package body Prj.Env is
Proj : Project_Id; Proj : Project_Id;
begin begin
-- Nothing to do for non existent or runtime project or project -- Nothing to do for non existent project or project that has already
-- that has already been flagged. -- been flagged.
if Prj = No_Project or else Prj = Runtime or else Present (Prj) then if Prj = No_Project or else Present (Prj) then
return; return;
end if; end if;
......
gcc/ada/prj-env.ads
...@@ -10,14 +10,13 @@ ...@@ -10,14 +10,13 @@
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 2, or (at your option) any later ver- -- -- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General -- -- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write -- -- Public License distributed with GNAT; see file COPYING3. If not, go to --
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- -- http://www.gnu.org/licenses for a complete copy of the license. --
-- Boston, MA 02110-1301, USA. --
-- -- -- --
-- GNAT was originally developed by the GNAT team at New York University. -- -- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- Extensive contributions were provided by Ada Core Technologies Inc. --
...@@ -47,7 +46,6 @@ package Prj.Env is ...@@ -47,7 +46,6 @@ package Prj.Env is
procedure Create_Mapping_File procedure Create_Mapping_File
(Project : Project_Id; (Project : Project_Id;
Language : Name_Id; Language : Name_Id;
Runtime : Project_Id;
In_Tree : Project_Tree_Ref; In_Tree : Project_Tree_Ref;
Name : out Path_Name_Type); Name : out Path_Name_Type);
-- Create a temporary mapping file for project Project. For each source or -- Create a temporary mapping file for project Project. For each source or
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment