diff options
| author | Vincent Celier <celier@adacore.com> | 2006-02-15 10:43:00 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-02-15 10:43:00 +0100 |
| commit | 97b7ca6ffff4e2f3ba40e9cfdb8d86ecc797ee78 (patch) | |
| tree | f8548be927bcc6442533b3a94bc79d2981bc1312 /gcc/ada/prj-pars.ads | |
| parent | 795b06b10250df89edb732e0e8608fd0455fac7e (diff) | |
| download | gcc-97b7ca6ffff4e2f3ba40e9cfdb8d86ecc797ee78.zip gcc-97b7ca6ffff4e2f3ba40e9cfdb8d86ecc797ee78.tar.gz gcc-97b7ca6ffff4e2f3ba40e9cfdb8d86ecc797ee78.tar.bz2 | |
prj.ads (Error_Warning): New enumeration type
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.
From-SVN: r111084
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 d94b072..237a934 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; |