From bc5e261c09a9c3938baa1fdb93361f29e17ff40a Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Thu, 20 Nov 2014 11:49:43 +0000 Subject: [PATCH] sem_ch6.adb: Improve better error message. 2014-11-20 Ed Schonberg * sem_ch6.adb: Improve better error message. From-SVN: r217847 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_ch6.adb | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * sem_ch6.adb: Improve better error message. + 2014-11-20 Thomas Quinot * 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; -- 2.7.4