diff options
| author | Vincent Celier <celier@adacore.com> | 2010-10-05 11:56:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 11:56:39 +0200 |
| commit | dfa8a067caa5a7479c19c9aa7f9fc9aa19b19364 (patch) | |
| tree | 250d36669a9cccada4de830c6bef9b9927ea3d83 /gcc/ada/prj.ads | |
| parent | a8ef12e56bd1e729917e63ad98c68072d7605f81 (diff) | |
| download | gcc-dfa8a067caa5a7479c19c9aa7f9fc9aa19b19364.zip gcc-dfa8a067caa5a7479c19c9aa7f9fc9aa19b19364.tar.gz gcc-dfa8a067caa5a7479c19c9aa7f9fc9aa19b19364.tar.bz2 | |
make.adb (Scan_Make_Arg): Take into account new switch --source-info=file.
2010-10-05 Vincent Celier <celier@adacore.com>
* make.adb (Scan_Make_Arg): Take into account new switch
--source-info=file.
* makeusg.adb: Add line for new switch --source-info=file.
* makeutl.ads (Source_Info_Option): New constant String for new builder
switch.
* prj-conf.adb: Put subprograms in alphabetical order
(Process_Project_And_Apply_Config): Read/write an eventual source info
file, if necessary.
* prj-nmsc.adb (Look_For_Sources.Get_Sources_From_Source_Info): New
procedure.
(Look_For_Sources): If a source info file was successfully read, get the
source data from the data read from the source info file.
* prj-util.adb (Source_Info_Table): New table
(Source_Info_Project_HTable): New hash table
(Create): New procedure
(Put (File), Put_Line): New procedures
(Write_Source_Info_File): New procedure
(Read_Source_Info_File): New procedure
(Initialize): New procedure
(Source_Info_Of): New procedure
(Next): New procedure
(Close): When file is an out file, fail if the buffer cannot be written
or if the file cannot be close successfully.
(Get_Line): Fail if file is an out file
* prj-util.ads (Create): New procedure
(Put (File), Put_Line): New procedures
(Write_Source_Info_File): New procedure
(Read_Source_Info_File): New procedure
(Source_Info_Data): New record type
(Source_Info_Iterator): New private type
(Initialize): New procedure
(Source_Info_Of): New procedure
(Next): New procedure
* prj.ads (Project_Tree_Data): New components Source_Info_File_Name and
Source_Info_File_Exists.
From-SVN: r164975
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index c353cca..bdd7cce 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1354,6 +1354,12 @@ package Prj is Source_Paths_HT : Source_Paths_Htable.Instance; -- Full path to Source_Id + Source_Info_File_Name : String_Access := null; + -- The name of the source info file, if specified by the builder + + Source_Info_File_Exists : Boolean := False; + -- True when a source info file has been successfully read + Private_Part : Private_Project_Tree_Data; end record; -- Data for a project tree |