OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Arnaud Charlet 2011-08-04 15:22:36 +02:00
parent 1ab4a286b7
commit ef5569c64b
5 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View File

@ -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

3
gcc/ada/make.adb
View File

@ -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;

9
gcc/ada/osint.adb
View File

@ -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 --
-----------------

3
gcc/ada/osint.ads
View File

@ -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

43
gcc/ada/vms_data.ads
View File

@ -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 --