diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-30 16:06:14 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-30 16:06:14 +0100 |
| commit | 2c6336bec3f0a2db44fa56e7448aaf119aa6665c (patch) | |
| tree | 8432c210f1c0904e02463c384d2865634f6ba147 /gcc/ada/errout.ads | |
| parent | 46413d9ea9ce2b3d5b59cc141842fa2d84d74b69 (diff) | |
| download | gcc-2c6336bec3f0a2db44fa56e7448aaf119aa6665c.zip gcc-2c6336bec3f0a2db44fa56e7448aaf119aa6665c.tar.gz gcc-2c6336bec3f0a2db44fa56e7448aaf119aa6665c.tar.bz2 | |
[multiple changes]
2015-01-30 Gary Dismukes <dismukes@adacore.com>
* freeze.adb: Minor reformatting.
2015-01-30 Javier Miranda <miranda@adacore.com>
* errout.ads (Error_Msg_PT): Replace Node_Id by Entity_Id and
improve its documentation.
* errout.adb (Error_Msg_PT): Improve the error message.
* sem_ch6.adb (Check_Conformance): Update call to Error_Msg_PT.
(Check_Synchronized_Overriding): Update call to Error_Msg_PT.
* sem_ch3.adb (Check_Abstract_Overriding): Code cleanup.
2015-01-30 Robert Dewar <dewar@adacore.com>
* sem_warn.adb (Warn_On_Known_Condition): Do special casing of
message for False case.
2015-01-30 Doug Rupp <rupp@adacore.com>
* s-vxwext-kernel.ads (Task_Cont): Remove imported subprogram body.
* s-vxwext-kernel.adb (Task_Cont): New subpprogram body specialized for
kernel.
From-SVN: r220284
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 6ca4549..6105880 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, 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- -- @@ -848,9 +848,10 @@ package Errout is -- run-time mode or no run-time mode (as appropriate). In the former case, -- the name of the library is output if available. - procedure Error_Msg_PT (Typ : Node_Id; Subp : Node_Id); - -- Posts an error on the protected type declaration Typ indicating wrong - -- mode of the first formal of protected type primitive Subp. + procedure Error_Msg_PT (E : Entity_Id; Iface_Prim : Entity_Id); + -- Posts an error on protected type entry or subprogram E (referencing its + -- overridden interface primitive Iface_Prim) indicating wrong mode of the + -- first formal (RM 9.4(11.9/3)) procedure Error_Msg_Ada_2012_Feature (Feature : String; Loc : Source_Ptr); -- If not operating in Ada 2012 mode, posts errors complaining that Feature |