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
This commit is contained in:
Ed Schonberg 2014-11-20 11:49:43 +00:00 committed by Arnaud Charlet
parent 35e7063a98
commit bc5e261c09
2 changed files with 6 additions and 1 deletions

View File

@ -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.

View File

@ -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;