diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-04-08 08:49:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 08:49:13 +0200 |
| commit | 2dcf2584dbcefb4c3148a2c4ec776598d2004c1c (patch) | |
| tree | 0bd146c5189863d5579772c6bbaeeca6003fc44b /gcc/ada/erroutc.ads | |
| parent | 68c3f02a687ec4e6dd51392f1154da5690cd7963 (diff) | |
| download | gcc-2dcf2584dbcefb4c3148a2c4ec776598d2004c1c.tar.gz | |
errout.ads: Update comments for new handling of info: messages
2008-04-08 Robert Dewar <dewar@adacore.com>
* errout.ads: Update comments for new handling of info: messages
* erroutc.adb (Matches): New procedure
(Warning_Specifically_Suppressed): Modified to handle multiple * chars
(Is_Style_Or_Info_Msg): New name for Is_Style_Msg, now set for
info messages as well as style messages.
* erroutc.ads: Remove unneeded fields from Specific_Warning_Entry
* sem_elab.adb (Supply_Bodies): Create actual bodies for stubbed
subprograms.
(Check_A_Call): Special "info: " warnings now have ? in the text
(Elab_Warning): Use info message in static case
From-SVN: r134024
Diffstat (limited to 'gcc/ada/erroutc.ads')
| -rw-r--r-- | gcc/ada/erroutc.ads | 28 |
1 files changed, 8 insertions, 20 deletions
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 1f4eebf3584..edc1140fbef 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -52,6 +52,7 @@ package Erroutc is Is_Style_Msg : Boolean := False; -- Set True to indicate if the current message is a style message + -- (i.e. a message whose text starts with the cahracters "(style)"). Is_Serious_Error : Boolean := False; -- Set by Set_Msg_Text to indicate if current message is serious error @@ -267,25 +268,12 @@ package Erroutc is Msg : String_Ptr; -- Message from pragma Warnings (Off, string) - Pattern : String_Ptr; - -- Same as Msg, excluding initial and final asterisks if present. The - -- lower bound of this string is always one. - - Patlen : Natural; - -- Length of pattern string (excluding initial/final asterisks) - Open : Boolean; -- Set to True if OFF has been encountered with no matching ON Used : Boolean; -- Set to True if entry has been used to suppress a warning - Star_Start : Boolean; - -- True if given pattern had * at start - - Star_End : Boolean; - -- True if given pattern had * at end - Config : Boolean; -- True if pragma is configuration pragma (in which case no matching -- Off pragma is required, and it is not required that a specific @@ -482,12 +470,12 @@ package Erroutc is procedure Test_Style_Warning_Serious_Msg (Msg : String); -- Sets Is_Warning_Msg true if Msg is a warning message (contains a - -- question mark character), and False otherwise. Sets Is_Style_Msg - -- true if Msg is a style message (starts with "(style)"). Sets - -- Is_Serious_Error True unless the message is a warning or style - -- message or contains the character | indicating a non-serious - -- error message. Note that the call has no effect for continuation - -- messages (those whose first character is \). + -- question mark character), and False otherwise. Is_Style_Msg is set true + -- if Msg is a style message (starts with "(style)". Sets Is_Serious_Error + -- True unless the message is a warning or style/info message or contains + -- the character | indicating a non-serious error message. Note that the + -- call has no effect for continuation messages (those whose first + -- character is '\'). function Warnings_Suppressed (Loc : Source_Ptr) return Boolean; -- Determines if given location is covered by a warnings off suppression |