diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:43:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:43:00 +0000 |
| commit | 049853aed8cb9022f3e4b5d1aa2f2649ef9ee6a8 (patch) | |
| tree | f8548be927bcc6442533b3a94bc79d2981bc1312 /gcc/ada/prj-pars.adb | |
| parent | e7c3eff78c00b0b3ab6572de81bd104e871cc29c (diff) | |
| download | gcc-049853aed8cb9022f3e4b5d1aa2f2649ef9ee6a8.tar.gz | |
2006-02-13 Vincent Celier <celier@adacore.com>
* prj.ads (Error_Warning): New enumeration type
* prj-nmsc.ads, prj-nmsc.adb (Error_Msg): If location parameter is
unknown, use the location of the project to report the error.
(When_No_Sources): New global variable
(Report_No_Ada_Sources): New procedure
(Check): New parameter When_No_Sources. Set value of global variable
When_No_Sources,
(Find_Sources): Call Report_No_Ada_Sources when appropriate
(Get_Sources_From_File): Ditto
(Warn_If_Not_Sources): Better warning messages indicating the unit name
and the file name.
* prj-pars.ads, prj-pars.adb (Parse): New parameter When_No_Sources.
Call Prj.Proc.Process with parameter When_No_Sources.
* prj-proc.ads, prj-proc.adb (Check): New parameter When_No_Sources.
Call Recursive_Check with parameter When_No_Sources.
(Recursive_Check): New parameter When_No_Sources. Call itself and
Prj.Nmsc.Check with parameter When_No_Sources.
(Process): New parameter When_No_Sources. Call Check with parameter
When_No_Sources.
(Copy_Package_Declarations): New procedure to copy renamed parameters
and setting the location of the declared attributes to the location
of the renamed package.
(Process_Declarative_Items): Call Copy_Package_Declarations for renamed
packages.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111084 138bc75d-0d04-0410-961f-82ee72b054a4
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; |