diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 10:05:45 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 10:05:45 +0200 |
| commit | 3d9183967d29d4754b1fb9ed78b4b75a77fe155f (patch) | |
| tree | 18dc61f15a5c2d320fddca9b79c9f9708b4009b0 /gcc/ada/errutil.adb | |
| parent | 6480338ae6d2350656b8c689df8af79c02ebc6be (diff) | |
| download | gcc-3d9183967d29d4754b1fb9ed78b4b75a77fe155f.zip gcc-3d9183967d29d4754b1fb9ed78b4b75a77fe155f.tar.gz gcc-3d9183967d29d4754b1fb9ed78b4b75a77fe155f.tar.bz2 | |
[multiple changes]
2013-07-08 Robert Dewar <dewar@adacore.com>
* gnatcmd.adb: Minor reformatting.
2013-07-08 Robert Dewar <dewar@adacore.com>
* targparm.adb (Get_Target_Parameters): Recognize pragma
Partition_Elaboration_Policy.
2013-07-08 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Minor update to mention partition elaboration policy.
2013-07-08 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Comple_Object_Operation): Revert previous change.
(Analyze_Indexed_Component_Form): In ASIS mode, if node has been
transformed but not rewritten as a function call (as is the case
in a generic), analyze it as such.
2013-07-08 Thomas Quinot <quinot@adacore.com>
* gnat_rm.texi: Minor rewording: add missing word "operators"
in documentation for restriction No_Direct_Boolean_Operator.
2013-07-08 Robert Dewar <dewar@adacore.com>
* errout.adb (Set_Msg_Txt): No longer sets Is_Style_Msg,
Is_Warning_Msg, or Is_Unconditional_Msg (all are set elsewhere
now).
* errout.ads: Insertions ! and !! no longer have to be at the
end of the message, they can be anywhere in the message.
* erroutc.adb (Test_Style_Warning_Serious_Unconditional_Msg):
Replaces Test_Style_Warning_Serious_Msg
* erroutc.ads (Has_Double_Exclam): New flag New comments for
existing flags (Test_Style_Warning_Serious_Unconditional_Msg):
Replaces Test_Style_Warning_Serious_Msg
* errutil.adb (Test_Style_Warning_Serious_Unconditional_Msg):
Replaces Test_Style_Warning_Serious_Msg
From-SVN: r200765
Diffstat (limited to 'gcc/ada/errutil.adb')
| -rw-r--r-- | gcc/ada/errutil.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index 3a087ca..b79ea02 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1991-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1991-2013, 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- -- @@ -163,9 +163,9 @@ package body Errutil is -- Corresponds to the Sptr value in the error message object Optr : Source_Ptr renames Flag_Location; - -- Corresponds to the Optr value in the error message object. Note - -- that for this usage, Sptr and Optr always have the same value, - -- since we do not have to worry about generic instantiations. + -- Corresponds to the Optr value in the error message object. Note that + -- for this usage, Sptr and Optr always have the same value, since we do + -- not have to worry about generic instantiations. begin if Errors_Must_Be_Ignored then @@ -176,7 +176,7 @@ package body Errutil is raise Error_Msg_Exception; end if; - Test_Style_Warning_Serious_Msg (Msg); + Test_Style_Warning_Serious_Unconditional_Msg (Msg); Set_Msg_Text (Msg, Sptr); -- Kill continuation if parent message killed @@ -680,8 +680,8 @@ package body Errutil is ------------------ procedure Set_Msg_Text (Text : String; Flag : Source_Ptr) is - C : Character; -- Current character - P : Natural; -- Current index; + C : Character; -- Current character + P : Natural; -- Current index; begin Manual_Quote_Mode := False; @@ -744,7 +744,7 @@ package body Errutil is Set_Msg_Char ('"'); elsif C = '!' then - Is_Unconditional_Msg := True; + null; elsif C = '?' then null; |