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

ali-util.adb, [...]: Remove references to Force_RM_Elaboration_Order.

Browse Source 
2005-06-14  Robert Dewar  <dewar@adacore.com>

	* ali-util.adb, gnatbind.adb: Remove references to
	Force_RM_Elaboration_Order.

	* switch-b.adb: Remove recognition of -f switch

From-SVN: r101022
This commit is contained in:
Robert Dewar 2005-06-16 10:30:54 +02:00 committed by Arnaud Charlet
parent a3a95769eb
commit 00109226ca
3 changed files with 3 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/ali-util.adb
View File

@ -271,7 +271,7 @@ package body ALI.Util is
Scan_ALI
(F => Afile,
T => Text,
Ignore_ED => Force_RM_Elaboration_Order,
Ignore_ED => False,
Err => False);
Free (Text);

15
gcc/ada/gnatbind.adb
View File

@ -539,7 +539,7 @@ begin
Id := Scan_ALI
(F => Main_Lib_File,
T => Text,
Ignore_ED => Force_RM_Elaboration_Order,
Ignore_ED => False,
Err => False,
Ignore_Errors => Debug_Flag_I);
end;
@ -584,7 +584,7 @@ begin
Scan_ALI
(F => Std_Lib_File,
T => Text,
Ignore_ED => Force_RM_Elaboration_Order,
Ignore_ED => False,
Err => False,
Ignore_Errors => Debug_Flag_I);
end;
@ -598,17 +598,6 @@ begin
Read_ALI (Index);
end loop;
-- Warn if -f switch used
if Force_RM_Elaboration_Order then
Error_Msg
("?-f is obsolescent and should not be used");
Error_Msg
("?may result in missing run-time elaboration checks");
Error_Msg
("?use -gnatE, pragma Suppress (Elaboration_Check) instead");
end if;
-- Quit if some file needs compiling
if No_Object_Specified then

6
gcc/ada/switch-b.adb
View File

@ -149,12 +149,6 @@ package body Switch.B is
Ptr := Ptr + 1;
Exception_Tracebacks := True;
-- Processing for f switch
when 'f' =>
Ptr := Ptr + 1;
Force_RM_Elaboration_Order := True;
-- Processing for F switch
when 'F' =>