From 47d427263cf55a92bc2a1d4fa22cb1e5a7e1cba0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Wed, 25 Nov 2015 05:31:09 +0100
Subject: Improve error message when ',' is used instead of ';' in interface.

---
 src/vhdl/parse.adb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 5075c95b2..3d3bfcf6d 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -1574,7 +1574,14 @@ package body Parse is
             Last := Next;
          end loop;
 
-         exit when Current_Token /= Tok_Semi_Colon;
+         case Current_Token is
+            when Tok_Comma =>
+               Error_Msg_Parse ("';' expected instead of ','");
+            when Tok_Semi_Colon =>
+               null;
+            when others =>
+               exit;
+         end case;
       end loop;
 
       if Current_Token /= Tok_Right_Paren then
-- 
cgit v1.2.3