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

diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb
index 518d1df8a839f92285cfa27cb5e831fb7d4c6118..37cd6c09bb9f2ae928846c008d223589b692b15d 100644 (file)
--- 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 d13af031bc8cc5058e7ab7099688e44332d85ec3..1fa3bbe9ac060d47aa4c94f05d5e050874b4064d 100644 (file)
--- 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 5c2f525d924293da24e3f30eac218d864c6fcd3b..6880d3cff82246f27af28a3b6fba28720567d6ac 100644 (file)
--- 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' =>