From dc353d9b65c0f7aebd142fbb89460335e285af6d Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 20 Nov 2014 11:49:43 +0000 Subject: [PATCH] 2014-11-20 Ed Schonberg * sem_ch6.adb: Improve better error message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@217847 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 c01298c750ed..a86d9ef99f43 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 5a5265c2778e..1fcde26714a7 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.47.3