diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 13 | ||||
| -rw-r--r-- | gcc/ada/bindusg.adb | 8 | ||||
| -rw-r--r-- | gcc/ada/gnatbind.adb | 16 | ||||
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/opt.ads | 5 |
5 files changed, 27 insertions, 19 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a8f86ab..fd9776a 100644 --- 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 764e9c4..c812a1d 100644 --- 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 61f4a01..49890a0 100644 --- 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 86b24ca..75811ee 100644 --- 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 7ba1c43..daf02b8 100644 --- 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 |