diff options
author | Robert Dewar <dewar@adacore.com> | 2005-09-05 09:52:55 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:52:55 +0200 |
commit | 3711d64615812c04a47aecb0787136a57548f31b (patch) | |
tree | a2e43c3e03fc087f1f1ac33952d8eb14bc5d2009 /gcc/ada/errout.ads | |
parent | 405e57adc0248985e4ef02e7b16a176c06a646e7 (diff) | |
download | gcc-3711d64615812c04a47aecb0787136a57548f31b.zip gcc-3711d64615812c04a47aecb0787136a57548f31b.tar.gz gcc-3711d64615812c04a47aecb0787136a57548f31b.tar.bz2 |
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/errout.ads')
-rw-r--r-- | gcc/ada/errout.ads | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index f0690d8..ff25468 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -243,6 +243,12 @@ package Errout is -- phase anyway. Messages starting with (style) are also treated as -- warning messages. + -- Insertion character < (Less Than: conditional warning message) + -- The character < appearing anywhere in a message is used for a + -- conditional error message. If Error_Msg_Warn is True, then the + -- effect is the same as ? described above. If Error_Msg_Warn is + -- False, then there is no effect. + -- Insertion character A-Z (Upper case letter: Ada reserved word) -- If two or more upper case letters appear in the message, they are -- taken as an Ada reserved word, and are converted to the default @@ -358,6 +364,10 @@ package Errout is -- note get reset by any Error_Msg call, so the caller is responsible -- for resetting it. + Error_Msg_Warn : Boolean renames Err_Vars.Error_Msg_Warn; + -- Used if current message contains a < insertion character to indicate + -- if the current message is a warning message. + ----------------------------------------------------- -- Format of Messages and Manual Quotation Control -- ----------------------------------------------------- @@ -440,7 +450,7 @@ package Errout is function Get_Location (E : Error_Msg_Id) return Source_Ptr renames Erroutc.Get_Location; - -- Returns the flag location of the error message with the given id E. + -- Returns the flag location of the error message with the given id E ------------------------ -- List Pragmas Table -- @@ -601,7 +611,7 @@ package Errout is -- of its descendent nodes. No effect if no such warnings. procedure Remove_Warning_Messages (L : List_Id); - -- Remove warnings on all elements of a list. + -- Remove warnings on all elements of a list procedure Set_Ignore_Errors (To : Boolean); -- Following a call to this procedure with To=True, all error calls are |