mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-22 12:30:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

bindusg.adb: Undocument -f switch.

Browse Source 
* 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
This commit is contained in:
Robert Dewar 2001-10-30 23:12:48 +00:00 committed by Geert Bosch
parent 5750fce037
commit 54d2241679
5 changed files with 27 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/ChangeLog
View File

@ -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

8
gcc/ada/bindusg.adb
View File

@ -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;

16
gcc/ada/gnatbind.adb
View File

@ -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

4
gcc/ada/gnatcmd.adb
View File

@ -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,

5
gcc/ada/opt.ads
View File

@ -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