[multiple changes]

2011-08-04  Emmanuel Briot  <briot@adacore.com>

	* make.adb, osint.adb, osint.ads (Reset_Command_Line_Files): not used
	after all, so removed.

2011-08-04  Sergey Rybin  <rybin@adacore.com>

	* vms_data.ads: Add missing VMS qualifiers.

From-SVN: r177381

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 12e4b0d54b36292ef6354631b27aa1fe6cc8b196..7112facf76d8143ec612845ddaba63402f3af5f1 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2011-08-04  Emmanuel Briot  <briot@adacore.com>
+
+       * make.adb, osint.adb, osint.ads (Reset_Command_Line_Files): not used
+       after all, so removed.
+
+2011-08-04  Sergey Rybin  <rybin@adacore.com>
+
+       * vms_data.ads: Add missing VMS qualifiers.
+
 2011-08-04  Emmanuel Briot  <briot@adacore.com>
 
        * make.adb, makeutl.adb, osint.adb, osint.ads (Check_Mains): rebuild

diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index 41e787d319297c5aa426828b9fd133eeb631ddd7..dd9e9b9c2ee5f3885817b3c83f24b7c25357b74b 100644 (file)
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -5540,9 +5540,6 @@ package body Make is
             --  queue as gprbuild and processes the file directly on the queue.
 
             Mains.Reset;
-            --  Osint.Reset_Command_Line_Files;
-            Debug_Output ("Reseting list of mains on the command line");
-
             loop
                Info := Mains.Next_Main;
                exit when Info = No_Main_Info;

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index 408384ca88bf8b1d5ee57226a629919e1450ac2b..8da01c2468a88c6791c7adbe0bbbaacd548ba069 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -2749,15 +2749,6 @@ package body Osint is
       return new String'(Path);
    end Relocate_Path;
 
-   ------------------------------
-   -- Reset_Command_Line_Files --
-   ------------------------------
-
-   procedure Reset_Command_Line_Files is
-   begin
-      Number_File_Names := 0;
-   end Reset_Command_Line_Files;
-
    -----------------
    -- Set_Program --
    -----------------

diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads
index 9fccd33085900e673e92b174f685945f553ab527..a4fc33412e49c497ca687f8dd0f8f71853591322 100644 (file)
--- a/gcc/ada/osint.ads
+++ b/gcc/ada/osint.ads
@@ -114,9 +114,6 @@ package Osint is
    function Number_Of_Files return Int;
    --  Gives the total number of filenames found on the command line
 
-   procedure Reset_Command_Line_Files;
-   --  Reset the list of files specified on the command line to empty.
-
    No_Index : constant := -1;
    --  Value used in Add_File to indicate no index is specified for main
 

diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index 75fd41485d31f1b1f95fed941df86bcae9ff1754..3e232795c03f6ef4486462b1ffebc09ab0355333 100644 (file)
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -882,6 +882,12 @@ package VMS_Data is
    --   of the directory specified in the project file. If the subdirectory
    --   does not exist, it is created automatically.
 
+   S_Check_Template  : aliased constant S := "/TEMPLATE=@"                 &
+                                             "--write-rules=@";
+   --      /TEMPLATE=filename
+   --
+   --   Generate the rule template into the specified file.
+
    S_Check_Verb   : aliased constant S := "/VERBOSE "                      &
                                             "-v";
    --        /NOVERBOSE (D)
@@ -898,24 +904,25 @@ package VMS_Data is
    --   Specify the name of the output file.
 
    Check_Switches : aliased constant Switches :=
-                      (S_Check_Add    'Access,
-                       S_Check_All    'Access,
-                       S_Diagnosis    'Access,
-                       S_Check_Ext    'Access,
-                       S_Check_Files  'Access,
-                       S_Check_Follow 'Access,
-                       S_Check_Help   'Access,
-                       S_Check_Locs   'Access,
-                       S_Check_Mess   'Access,
-                       S_Check_Project'Access,
-                       S_Check_Quiet  'Access,
-                       S_Check_Time   'Access,
-                       S_Check_Log    'Access,
-                       S_Check_Short  'Access,
-                       S_Check_Include'Access,
-                       S_Check_Subdirs'Access,
-                       S_Check_Verb   'Access,
-                       S_Check_Out    'Access);
+                      (S_Check_Add     'Access,
+                       S_Check_All     'Access,
+                       S_Diagnosis     'Access,
+                       S_Check_Ext     'Access,
+                       S_Check_Files   'Access,
+                       S_Check_Follow  'Access,
+                       S_Check_Help    'Access,
+                       S_Check_Locs    'Access,
+                       S_Check_Mess    'Access,
+                       S_Check_Project 'Access,
+                       S_Check_Quiet   'Access,
+                       S_Check_Time    'Access,
+                       S_Check_Log     'Access,
+                       S_Check_Short   'Access,
+                       S_Check_Include 'Access,
+                       S_Check_Subdirs 'Access,
+                       S_Check_Template'Access,
+                       S_Check_Verb    'Access,
+                       S_Check_Out     'Access);
 
    ----------------------------
    -- Switches for GNAT CHOP --