From 399e3a80eaa421f398f4e8d3d63ee9640b1f042e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 11 Mar 2017 07:22:48 +0100
Subject: Improve error message

Fix #312
---
 src/vhdl/parse.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 0b696a8d8..f2b0682e1 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -1061,7 +1061,8 @@ package body Parse is
             end if;
             Res := Parse_External_Name;
          when others =>
-            Error_Msg_Parse ("identifier expected here");
+            Error_Msg_Parse ("name expected here, found %t",
+                             +Current_Token);
             raise Parse_Error;
       end case;
 
-- 
cgit v1.2.3