bindusg.adb: Undocument -f switch.

	* bindusg.adb: Undocument -f switch.

	* gnatcmd.adb: Remove /FULL_ELABORATION.

	* opt.ads (Force_RM_Elaboration_Order): Document that this is
	obsolescent.

	* gnatbind.adb: Output new warning for use of obsolescent -f switch.

	* gnatbind.adb: Minor update of warning msg.

From-SVN: r46657

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a8f86abff0bf059580cd7b410275aa9aa4bb5076..fd9776a11855662fe098e86aad4c7c08555e9607 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,16 @@
+2001-10-30  Robert Dewar <dewar@gnat.com>
+       
+       * bindusg.adb: Undocument -f switch.
+       
+       * gnatcmd.adb: Remove /FULL_ELABORATION.
+       
+       * opt.ads (Force_RM_Elaboration_Order): Document that this is 
+       obsolescent.
+       
+       * gnatbind.adb: Output new warning for use of obsolescent -f switch.
+       
+       * gnatbind.adb: Minor update of warning msg.
+
 2001-10-30  Vincent Celier <celier@gnat.com>
 
        * gnatcmd.adb (MAKE, BIND, LINK, LIST, FIND, XREF): Add translations 

diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb
index 764e9c426c9e2cbc3d925553e3b9794116f9c5e3..c812a1d62e1934044bc8bd896c0f030199b9f13d 100644 (file)
--- a/gcc/ada/bindusg.adb
+++ b/gcc/ada/bindusg.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---                            $Revision: 1.52 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
 --                                                                          --
@@ -103,12 +103,6 @@ begin
    Write_Str ("E        Store tracebacks in Exception occurrences");
    Write_Eol;
 
-   --  Line for -f switch
-
-   Write_Switch_Char;
-   Write_Str ("f        Force RM elaboration ordering rules");
-   Write_Eol;
-
    --  Line for -h switch
 
    Write_Switch_Char;

diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb
index 61f4a01f4767e339683a4db1c919feef6389e89c..49890a046da2511c266681764a11cbcd09ee74c2 100644 (file)
--- a/gcc/ada/gnatbind.adb
+++ b/gcc/ada/gnatbind.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.68 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
 --                                                                          --
@@ -399,13 +399,15 @@ begin
          Read_ALI (Index);
       end loop;
 
-      --  Warn if -f switch used with static model
+      --  Warn if -f switch used
 
-      if Force_RM_Elaboration_Order
-        and Static_Elaboration_Model_Used
-      then
-         Error_Msg ("?static elaboration model used, but -f specified");
-         Error_Msg ("?may result in missing run-time elaboration checks");
+      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_Checks) instead");
       end if;
 
       --  Quit if some file needs compiling

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index 86b24ca2637d2f020cdf9282592a520464340de4..75811ee74c89a7d670043467f5ef21a5104c50e2 100644 (file)
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -220,9 +220,6 @@ procedure GNATCmd is
    S_Bind_Error   : aliased constant S := "/ERROR_LIMIT=#"                 &
                                             "-m#";
 
-   S_Bind_Full    : aliased constant S := "/FULL_ELABORATION "             &
-                                            "-f";
-
    S_Bind_Library : aliased constant S := "/LIBRARY_SEARCH=*"              &
                                             "-aO*";
 
@@ -313,7 +310,6 @@ procedure GNATCmd is
      S_Bind_Elab    'Access,
      S_Bind_Error   'Access,
      S_Ext_Ref      'Access,
-     S_Bind_Full    'Access,
      S_Bind_Library 'Access,
      S_Bind_Linker  'Access,
      S_Bind_Main    'Access,

diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index 7ba1c43d209551be0b2aa5630726663ef35678cb..daf02b8be3939c5a95f3504dbcf2c82cd5888bc5 100644 (file)
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision: 1.194 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
 --                                                                          --
@@ -331,6 +331,9 @@ package Opt is
    Force_RM_Elaboration_Order : Boolean := False;
    --  GNATBIND
    --  True if binding with forced RM elaboration order (-f switch set)
+   --  Note: this is considered an obsolescent option, to be removed in
+   --  some future release. it is no longer documented. The proper way
+   --  to get this effect is to use -gnatE and suppress elab checks.
 
    Full_List : Boolean := False;
    --  GNAT