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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/prj-pars.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/prj-pars.ads b/gcc/ada/prj-pars.ads index d94b0720f24..237a9341b1e 100644 --- a/gcc/ada/prj-pars.ads +++ b/gcc/ada/prj-pars.ads @@ -35,7 +35,8 @@ package 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); -- Parse a project files and all its imported project files, in the -- project tree In_Tree. -- @@ -46,5 +47,8 @@ package Prj.Pars is -- Packages_To_Check indicates the packages where any unknown attribute -- produces an error. For other packages, an unknown attribute produces -- a warning. + -- + -- When_No_Sources indicates what should be done when no sources + -- are found in a project for a specified or implied language. end Prj.Pars; |