* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46657
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
-- --
-- B o d y --
-- --
--- $Revision: 1.52 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
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;
-- --
-- B o d y --
-- --
--- $Revision: 1.68 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
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
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*";
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,
-- --
-- S p e c --
-- --
--- $Revision: 1.194 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
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