summaryrefslogtreecommitdiff
path: root/gcc/ada/err_vars.ads
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2005-09-05 09:52:55 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2005-09-05 09:52:55 +0200
commit3711d64615812c04a47aecb0787136a57548f31b (patch)
treea2e43c3e03fc087f1f1ac33952d8eb14bc5d2009 /gcc/ada/err_vars.ads
parent405e57adc0248985e4ef02e7b16a176c06a646e7 (diff)
downloadgcc-3711d64615812c04a47aecb0787136a57548f31b.tar.gz
errout.ads, errout.adb (Fix Error_Msg_F): Fix implementation to meet spec.
2005-09-01 Robert Dewar <dewar@adacore.com> * errout.ads, errout.adb (Fix Error_Msg_F): Fix implementation to meet spec. Implement new insertion char < (conditional warning) * errutil.adb, erroutc.adb: Implement new insertion char < (conditional warning). * sem_elab.adb, prj-dect.adb, erroutc.ads, err_vars.ads (Error_Msg_Warn): New variable for < insertion char. * prj-nmsc.adb: Implement new errout insertion char < (conditional warning). (Check_For_Source): Change value of Source_Id only after the current source has been dealt with. From-SVN: r103859
Diffstat (limited to 'gcc/ada/err_vars.ads')
-rw-r--r--gcc/ada/err_vars.ads6
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads
index a74577bfcfa..04ef8b20018 100644
--- a/gcc/ada/err_vars.ads
+++ b/gcc/ada/err_vars.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -103,6 +103,10 @@ package Err_Vars is
-- note get reset by any Error_Msg call, so the caller is responsible
-- for resetting it.
+ Error_Msg_Warn : Boolean;
+ -- Used if current message contains a < insertion character to indicate
+ -- if the current message is a warning message.
+
Warn_On_Instance : Boolean := False;
-- Normally if a warning is generated in a generic template from the
-- analysis of the template, then the warning really belongs in the