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/make.adb | |
| 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/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 2c2489c..da2707b 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -7988,6 +7988,12 @@ package body Make is end; end if; + elsif Argv'Length > Source_Info_Option'Length and then + Argv (1 .. Source_Info_Option'Length) = Source_Info_Option + then + Project_Tree.Source_Info_File_Name := + new String'(Argv (Source_Info_Option'Length + 1 .. Argv'Last)); + elsif Argv'Length >= 8 and then Argv (1 .. 8) = "--param=" then |