From 10583694809011467d2b4578a5e263608d7e4dc3 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Mon, 10 Sep 2007 14:48:44 +0200 Subject: [PATCH] prj-env.ads, [...] (Create_Mapping_File (Language)): Remove parameter Runtime_Project. 2007-09-10 Vincent Celier * prj-env.ads, prj-env.adb (Create_Mapping_File (Language)): Remove parameter Runtime_Project. From-SVN: r128336 --- gcc/ada/prj-env.adb | 14 ++++++-------- 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 80d1b9f80c5..52ec2f76fa8 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 74bb9fcbc75..4a680ffaee9 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 -- 2.30.2