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-nmsc.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-nmsc.ads')
| -rw-r--r-- | gcc/ada/prj-nmsc.ads | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/prj-nmsc.ads b/gcc/ada/prj-nmsc.ads index ae05c5f0174..7918ea1546c 100644 --- a/gcc/ada/prj-nmsc.ads +++ b/gcc/ada/prj-nmsc.ads @@ -33,10 +33,11 @@ private package Prj.Nmsc is -- language summary of the implementation ??? procedure Check - (Project : Project_Id; - In_Tree : Project_Tree_Ref; - Report_Error : Put_Line_Access; - Follow_Links : Boolean); + (Project : Project_Id; + In_Tree : Project_Tree_Ref; + Report_Error : Put_Line_Access; + Follow_Links : Boolean; + When_No_Sources : Error_Warning); -- Check the object directory and the source directories -- -- Check the library attributes, including the library directory if any @@ -57,5 +58,8 @@ private package Prj.Nmsc is -- any file duplicated through symbolic links (although the latter are -- still valid if they point to a file which is outside of the project), -- and that no directory has a name which is a valid source name. + -- + -- When_No_Ada_Sources indicates what should be done when no Ada sources + -- are found in a project where Ada is a language. end Prj.Nmsc; |