diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-11 12:52:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-11 12:52:35 +0200 |
| commit | 2e57f88b778de597f3bd3ed2fbe2b634eb46fc2d (patch) | |
| tree | 8164bb2479d90ef5d1bb21f44ae01230e59b55a6 /gcc/ada/par-ch7.adb | |
| parent | c230ed0b7e7cfec4bc9c437f833aa703ac9b3f95 (diff) | |
| download | gcc-2e57f88b778de597f3bd3ed2fbe2b634eb46fc2d.tar.gz | |
[multiple changes]
2014-06-11 Geert Bosch <bosch@adacore.com>
* s-exctab.adb: avoid race conditions in exception registration.
2014-06-11 Robert Dewar <dewar@adacore.com>
* errout.adb (Warn_Insertion): New function.
(Error_Msg): Use Warn_Insertion and Prescan_Message.
(Error_Msg_Internal): Set Info field of error object.
(Error_Msg_NEL): Use Prescan_Message.
(Set_Msg_Text): Don't store info: at start of message.
(Skip_Msg_Insertion_Warning): New name for Set_Msg_Insertion_Warning.
(Skip_Msg_Insertion_Warning): Now just skips warning insertion.
* errout.ads: Document new ?$? and >$> insertion sequences
Document use of "(style)" and "info: "
* erroutc.adb (dmsg): Print several missing fields
(Get_Warning_Tag): Handle -gnatel case (?$?) (Output_Msg_Text):
Deal with new tagging of info messages
* erroutc.ads: Is_Info_Msg: New global (Error_Msg_Object):
Add field Info (Prescan_Message): New procedure, this procedure
replaces the old Test_Style_Warning_Serious_Unconditional_Msg
* errutil.adb, exp_util.adb, par-ch7.adb, sem_ch13.adb, sem_ch7.adb,
sem_elab.adb: Follow new rules for info message (info belongs
only at the start of a message, and only in the first message,
not in any of the continuations).
* gnat_ugn.texi: Document full set of warning tags.
From-SVN: r211447
Diffstat (limited to 'gcc/ada/par-ch7.adb')
| -rw-r--r-- | gcc/ada/par-ch7.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb index 0a658c963e1..dd4bdb4b329 100644 --- a/gcc/ada/par-ch7.adb +++ b/gcc/ada/par-ch7.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -270,7 +270,7 @@ package body Ch7 is if Aspect_Sloc /= No_Location and then not Aspect_Specifications_Present then - Error_Msg_SC ("\info: aspect specifications belong here"); + Error_Msg_SC ("info: aspect specifications belong here??"); Move_Aspects (From => Dummy_Node, To => Package_Node); end if; |