From 00109226ca019e0e67fc12872afe1a2a7a68115b Mon Sep 17 00:00:00 2001
From: Robert Dewar <dewar@adacore.com>
Date: Thu, 16 Jun 2005 10:30:54 +0200
Subject: [PATCH] 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
---
 gcc/ada/ali-util.adb |  2 +-
 gcc/ada/gnatbind.adb | 15 ++-------------
 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 518d1df8a83..37cd6c09bb9 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 d13af031bc8..1fa3bbe9ac0 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 5c2f525d924..6880d3cff82 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' =>