vms_data.ads: Add VMS qualifier /SRC_INFO= corresponding to gnatmake switch --create-info-file=.

2010-10-05  Vincent Celier  <celier@adacore.com>

	* vms_data.ads: Add VMS qualifier /SRC_INFO= corresponding to gnatmake
	switch --create-info-file=.
	* gnat_ugn.texi: Add documentation for new gnatmake switch
	--source-info=

From-SVN: r164977

gcc/ada/ChangeLog

+2010-10-05  Vincent Celier  <celier@adacore.com>
+
+	* vms_data.ads: Add VMS qualifier /SRC_INFO= corresponding to gnatmake
+	switch --create-info-file=.
+	* gnat_ugn.texi: Add documentation for new gnatmake switch
+	--source-info=
+
 2010-10-05  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch3.adb: Do not elaborate type definition if syntax error.

gcc/ada/gnat_ugn.texi

@@ -9342,6 +9342,21 @@ By default, shared library projects are not allowed to import static library
 projects. When this switch is used on the command line, this restriction is
 relaxed.
 
+@item ^--source-info=<source info file>^/SRC_INFO=source-info-file^
+Specify a source info file. This switch is active only when project files
+are used. If the source info file is specified as a relative path, then it is
+relative to the object directory of the main project. If the source info file
+does not exist, then after the Project Manager has successfully parsed and
+processed the project files and found the sources, it creates the source info
+file. If the source info file already exists and can be read successfully,
+then the Project Manager will get all the needed information about the sources
+from the source info file and will not look for them. This reduces the time
+to process the project files, especially when looking for sources that take a
+long time. If the source info file exists but cannot be parsed successfully,
+the Project Manager will attempt to recreate it. If the Project Manager fails
+to create the source info file, a message is issued, but gnatmake does not
+fail.
+
 @ifclear vms
 @item --create-map-file
 When linking an executable, create a map file. The name of the map file

gcc/ada/vms_data.ads

@@ -4902,6 +4902,13 @@ package VMS_Data is
    --
    --   When looking for source files also look in the specified directories.
 
+   S_Make_Src_Info : aliased constant S := "/SRC_INFO=<"                   &
+                                            "--source-info-file=>";
+   --        /SRC_INFO=source-info-file
+   --
+   --   Specify a source info file to be read or written by the Project
+   --   Manager when project files are used.
+
    S_Make_Stand   : aliased constant S := "/STANDARD_OUTPUT_FOR_COMMANDS " &
                                             "-eS";
    --        /NOSTANDARD_OUTPUT_FOR_COMMANDS (D)
@@ -5012,6 +5019,7 @@ package VMS_Data is
                       S_Make_Single  'Access,
                       S_Make_Skip    'Access,
                       S_Make_Source  'Access,
+                      S_Make_Src_Info'Access,
                       S_Make_Stand   'Access,
                       S_Make_Subdirs 'Access,
                       S_Make_Switch  'Access,