diff options
| author | Javier Miranda <miranda@adacore.com> | 2011-08-30 13:50:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 15:50:19 +0200 |
| commit | dd54644b315aa181b563ee78ee5f48ec908632c2 (patch) | |
| tree | f5211562a4c22f3f636def27c991a070a3000821 /gcc/ada/errout.adb | |
| parent | d3ba478e3fda2b515d0dcdbdc936b65192b6f99d (diff) | |
| download | gcc-dd54644b315aa181b563ee78ee5f48ec908632c2.zip gcc-dd54644b315aa181b563ee78ee5f48ec908632c2.tar.gz gcc-dd54644b315aa181b563ee78ee5f48ec908632c2.tar.bz2 | |
sem_ch3.adb (Check_Abstract_Overriding): Code cleanup...
2011-08-30 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Check_Abstract_Overriding): Code cleanup: replace code
which emits an error by a call to a new routine which report the error.
* exp_ch9.adb (Build_Wrapper_Spec): Build the wrapper even if the
entity does not cover an existing interface.
* errout.ads, errout.adb (Error_Msg_PT): New routine. Used to factorize
code.
* sem_ch6.adb (Check_Conformance): Add specific error for wrappers of
protected procedures or entries whose mode is not conformant.
(Check_Synchronized_Overriding): Code cleanup: replace code which emits
an error by a call to a new routine which report the error.
From-SVN: r178306
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 39d7302..ac880ec 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -617,6 +617,23 @@ package body Errout is Configurable_Run_Time_Violations := Configurable_Run_Time_Violations + 1; end Error_Msg_CRT; + ------------------ + -- Error_Msg_PT -- + ------------------ + + procedure Error_Msg_PT (Typ : Node_Id; Subp : Node_Id) is + begin + -- Error message below needs rewording (remember comma in -gnatj + -- mode) ??? + + Error_Msg_NE + ("first formal of & must be of mode `OUT`, `IN OUT` or " & + "access-to-variable", Typ, Subp); + Error_Msg_N + ("\in order to be overridden by protected procedure or entry " & + "(RM 9.4(11.9/2))", Typ); + end Error_Msg_PT; + ----------------- -- Error_Msg_F -- ----------------- |