diff options
| author | Emmanuel Briot <briot@adacore.com> | 2009-04-29 12:10:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 14:10:28 +0200 |
| commit | bd0a4cabe3f07ec4751ac3cecd4e35bfa2ca0906 (patch) | |
| tree | 699db50c8964626cd1cf978fd50f643e924d553c /gcc/ada/prj-pars.adb | |
| parent | 69cb258c42f443c2def36a9e6864c7a3538e323c (diff) | |
| download | gcc-bd0a4cabe3f07ec4751ac3cecd4e35bfa2ca0906.zip gcc-bd0a4cabe3f07ec4751ac3cecd4e35bfa2ca0906.tar.gz gcc-bd0a4cabe3f07ec4751ac3cecd4e35bfa2ca0906.tar.bz2 | |
2009-04-29 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, prj-proc.adb, prj-proc.ads, make.adb, prj-part.adb,
prj-part.ads, prj.adb, prj.ads, clean.adb, prj-dect.adb, prj-dect.ads,
prj-nmsc.adb, prj-nmsc.ads, prj-pars.adb, prj-pars.ads, prj-makr.adb
(Set_In_Configuration, In_Configuration): Removed.
Replaced by an extra parameter Is_Config_File in several parameter to
avoid global variables to store the state of the parser.
From-SVN: r146955
Diffstat (limited to 'gcc/ada/prj-pars.adb')
| -rw-r--r-- | gcc/ada/prj-pars.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 0cdd9ad..86f47ec 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2009, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -45,7 +45,8 @@ package body Prj.Pars is Project_File_Name : String; Packages_To_Check : String_List_Access := All_Packages; When_No_Sources : Error_Warning := Error; - Reset_Tree : Boolean := True) + Reset_Tree : Boolean := True; + Is_Config_File : Boolean) is Project_Node_Tree : constant Project_Node_Tree_Ref := new Project_Node_Tree_Data; @@ -66,7 +67,8 @@ package body Prj.Pars is Project_File_Name => Project_File_Name, Always_Errout_Finalize => False, Packages_To_Check => Packages_To_Check, - Current_Directory => Current_Dir); + Current_Directory => Current_Dir, + Is_Config_File => Is_Config_File); -- If there were no error, process the tree @@ -80,7 +82,8 @@ package body Prj.Pars is Report_Error => null, When_No_Sources => When_No_Sources, Reset_Tree => Reset_Tree, - Current_Dir => Current_Dir); + Current_Dir => Current_Dir, + Is_Config_File => Is_Config_File); Prj.Err.Finalize; if not Success then |