diff options
| author | Vincent Celier <celier@adacore.com> | 2007-09-10 14:48:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-10 14:48:44 +0200 |
| commit | 10583694809011467d2b4578a5e263608d7e4dc3 (patch) | |
| tree | ba91dc3b8c600909f46bf790d52fdec30cebcf0e /gcc | |
| parent | 93188a0b5933e138ca8c4863af5b0cfc142325f3 (diff) | |
| download | gcc-10583694809011467d2b4578a5e263608d7e4dc3.zip gcc-10583694809011467d2b4578a5e263608d7e4dc3.tar.gz gcc-10583694809011467d2b4578a5e263608d7e4dc3.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/prj-env.adb | 14 | ||||
| -rw-r--r-- | gcc/ada/prj-env.ads | 8 |
2 files changed, 9 insertions, 13 deletions
diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 80d1b9f..52ec2f7 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -10,14 +10,13 @@ -- -- -- 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- -- --- 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- -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- 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 -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- +-- Public License distributed with GNAT; see file COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the license. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- @@ -1169,7 +1168,6 @@ package body Prj.Env is procedure Create_Mapping_File (Project : Project_Id; Language : Name_Id; - Runtime : Project_Id; In_Tree : Project_Tree_Ref; Name : out Path_Name_Type) is @@ -1221,10 +1219,10 @@ package body Prj.Env is Proj : Project_Id; begin - -- Nothing to do for non existent or runtime project or project - -- that has already been flagged. + -- Nothing to do for non existent project or project that has already + -- 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; end if; diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 74bb9fc..4a680ff 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -10,14 +10,13 @@ -- -- -- 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- -- --- 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- -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- 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 -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- +-- Public License distributed with GNAT; see file COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the license. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- @@ -47,7 +46,6 @@ package Prj.Env is procedure Create_Mapping_File (Project : Project_Id; Language : Name_Id; - Runtime : Project_Id; In_Tree : Project_Tree_Ref; Name : out Path_Name_Type); -- Create a temporary mapping file for project Project. For each source or |