diff options
Diffstat (limited to 'gcc/ada/prj-pars.adb')
| -rw-r--r-- | gcc/ada/prj-pars.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 4f4b9043c57..0b8e34e9d82 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2006, 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- -- @@ -43,7 +43,8 @@ package body Prj.Pars is (In_Tree : Project_Tree_Ref; Project : out Project_Id; Project_File_Name : String; - Packages_To_Check : String_List_Access := All_Packages) + Packages_To_Check : String_List_Access := All_Packages; + When_No_Sources : Error_Warning := Error) is Project_Node_Tree : constant Project_Node_Tree_Ref := new Project_Node_Tree_Data; @@ -73,7 +74,8 @@ package body Prj.Pars is From_Project_Node => Project_Node, From_Project_Node_Tree => Project_Node_Tree, Report_Error => null, - Follow_Links => Opt.Follow_Links); + Follow_Links => Opt.Follow_Links, + When_No_Sources => When_No_Sources); Prj.Err.Finalize; if not Success then @@ -99,7 +101,7 @@ package body Prj.Pars is -- Set_Verbosity -- ------------------- - procedure Set_Verbosity (To : in Verbosity) is + procedure Set_Verbosity (To : Verbosity) is begin Current_Verbosity := To; end Set_Verbosity; |
