diff options
| author | Robert Dewar <dewar@adacore.com> | 2005-06-16 10:30:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:30:54 +0200 |
| commit | 00109226ca019e0e67fc12872afe1a2a7a68115b (patch) | |
| tree | 0c15f506293158dd2b4c6064892c6045a3228522 | |
| parent | a3a95769ebf003082f7cc02156e8e1bd3b7ef108 (diff) | |
| download | gcc-00109226ca019e0e67fc12872afe1a2a7a68115b.zip gcc-00109226ca019e0e67fc12872afe1a2a7a68115b.tar.gz gcc-00109226ca019e0e67fc12872afe1a2a7a68115b.tar.bz2 | |
ali-util.adb, [...]: Remove references to Force_RM_Elaboration_Order.
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
| -rw-r--r-- | gcc/ada/ali-util.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/gnatbind.adb | 15 | ||||
| -rw-r--r-- | gcc/ada/switch-b.adb | 6 |
3 files changed, 3 insertions, 20 deletions
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 518d1df..37cd6c0 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -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); diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index d13af03..1fa3bbe 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -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 diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index 5c2f525..6880d3c 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -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' => |