diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-23 08:35:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-23 08:35:36 +0200 |
| commit | 3aee21ef61bb90e6806563e326837316023185e8 (patch) | |
| tree | c390de6133d0d7541fb7139978107479e9ba4724 /gcc/ada/prj.ads | |
| parent | 5b599df4d10201f3a83dbbaece526a2a22b49f18 (diff) | |
| download | gcc-3aee21ef61bb90e6806563e326837316023185e8.zip gcc-3aee21ef61bb90e6806563e326837316023185e8.tar.gz gcc-3aee21ef61bb90e6806563e326837316023185e8.tar.bz2 | |
[multiple changes]
2010-06-23 Emmanuel Briot <briot@adacore.com>
* prj.adb, prj.ads, prj-nmsc.adb (Processing_Flags): New flag
Missing_Source_Files.
2010-06-23 Robert Dewar <dewar@adacore.com>
* exp_ch3.adb, exp_util.adb: Minor reformatting.
From-SVN: r161249
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 25 |
1 files changed, 17 insertions, 8 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index cba9c6f..0cb504a 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1459,7 +1459,8 @@ package Prj is Compiler_Driver_Mandatory : Boolean := False; Error_On_Unknown_Language : Boolean := True; Require_Obj_Dirs : Error_Warning := Error; - Allow_Invalid_External : Error_Warning := Error) + Allow_Invalid_External : Error_Warning := Error; + Missing_Source_Files : Error_Warning := Error) return Processing_Flags; -- Function used to create Processing_Flags structure -- @@ -1492,6 +1493,10 @@ package Prj is -- If Allow_Invalid_External is Silent, then no error is reported when an -- invalid value is used for an external variable (and it doesn't match its -- type). Instead, the first possible value is used. + -- + -- Missing_Source_Files indicates whether it is an error or a warning that + -- a source file mentioned in the Source_Files attributes is not actually + -- found in the source directories Gprbuild_Flags : constant Processing_Flags; Gprclean_Flags : constant Processing_Flags; @@ -1521,6 +1526,10 @@ package Prj is -- another program running on the same machine has recreated it. -- Does nothing if Debug.Debug_Flag_N is set + Virtual_Prefix : constant String := "v$"; + -- The prefix for virtual extending projects. Because of the '$', which is + -- normally forbidden for project names, there cannot be any name clash. + private All_Packages : constant String_List_Access := null; @@ -1535,10 +1544,6 @@ private Location => No_Location, Default => False); - Virtual_Prefix : constant String := "v$"; - -- The prefix for virtual extending projects. Because of the '$', which is - -- normally forbidden for project names, there cannot be any name clash. - type Source_Iterator is record In_Tree : Project_Tree_Ref; @@ -1601,6 +1606,7 @@ private Error_On_Unknown_Language : Boolean; Require_Obj_Dirs : Error_Warning; Allow_Invalid_External : Error_Warning; + Missing_Source_Files : Error_Warning; end record; Gprbuild_Flags : constant Processing_Flags := @@ -1611,7 +1617,8 @@ private Compiler_Driver_Mandatory => True, Error_On_Unknown_Language => True, Require_Obj_Dirs => Error, - Allow_Invalid_External => Error); + Allow_Invalid_External => Error, + Missing_Source_Files => Error); Gprclean_Flags : constant Processing_Flags := (Report_Error => null, @@ -1621,7 +1628,8 @@ private Compiler_Driver_Mandatory => True, Error_On_Unknown_Language => True, Require_Obj_Dirs => Warning, - Allow_Invalid_External => Error); + Allow_Invalid_External => Error, + Missing_Source_Files => Warning); Gnatmake_Flags : constant Processing_Flags := (Report_Error => null, @@ -1631,6 +1639,7 @@ private Compiler_Driver_Mandatory => False, Error_On_Unknown_Language => False, Require_Obj_Dirs => Error, - Allow_Invalid_External => Error); + Allow_Invalid_External => Error, + Missing_Source_Files => Error); end Prj; |