diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 13:50:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 13:50:19 +0000 |
| commit | a11384dbda2f28f770215bba3f8e7cbc36694373 (patch) | |
| tree | f5211562a4c22f3f636def27c991a070a3000821 /gcc/ada/errout.ads | |
| parent | 04dd62123edaa16b41095a9e2736516b728617f0 (diff) | |
| download | gcc-a11384dbda2f28f770215bba3f8e7cbc36694373.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178306 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index ef3dcc47c29..7005cc11092 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -801,6 +801,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 dmsg (Id : Error_Msg_Id) renames Erroutc.dmsg; -- Debugging routine to dump an error message |