diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2014-11-20 11:49:43 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:49:43 +0100 |
| commit | bc5e261c09a9c3938baa1fdb93361f29e17ff40a (patch) | |
| tree | 9dbd81d7c2234a0af073ee8a4ccbbc568b7a0f8a | |
| parent | 35e7063a98e07a17c273f820250ef024b2deae9a (diff) | |
| download | gcc-bc5e261c09a9c3938baa1fdb93361f29e17ff40a.zip gcc-bc5e261c09a9c3938baa1fdb93361f29e17ff40a.tar.gz gcc-bc5e261c09a9c3938baa1fdb93361f29e17ff40a.tar.bz2 | |
sem_ch6.adb: Improve better error message.
2014-11-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb: Improve better error message.
From-SVN: r217847
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c01298c7..a86d9ef 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2014-11-20 Ed Schonberg <schonberg@adacore.com> + + * sem_ch6.adb: Improve better error message. + 2014-11-20 Thomas Quinot <quinot@adacore.com> * freeze.adb, sem_ch13.adb: Minor editing. diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 5a5265c..1fcde26 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -334,7 +334,8 @@ package body Sem_Ch6 is and then Nkind (Original_Node (Unit_Declaration_Node (Prev))) = N_Expression_Function then - Error_Msg_N ("Duplicate expression function", N); + Error_Msg_Sloc := Sloc (Prev); + Error_Msg_N ("& conflicts with declaration#", Def_Id); return; end if; end if; |