summaryrefslogtreecommitdiff
path: root/gcc/ada/gnatbind.adb
diff options
context:
space:
mode:
authorbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-30 23:12:48 +0000
committerbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-30 23:12:48 +0000
commit86f5f2af0a68aed9294e9262267e296a0c55096d (patch)
treed522b79485e5a4d2132d86c6f51a4d207b03b8c1 /gcc/ada/gnatbind.adb
parent306c12eb36be59171973302266166119f68532ca (diff)
downloadgcc-86f5f2af0a68aed9294e9262267e296a0c55096d.tar.gz
* 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46657 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatbind.adb')
-rw-r--r--gcc/ada/gnatbind.adb16
1 files changed, 9 insertions, 7 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb
index 61f4a01f476..49890a046da 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