Improve error message when ',' is used instead of ';' in interface.

1 files changed, 8 insertions, 1 deletions

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 5075c95..3d3bfcf 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