vhdl-parse: add a comment

1 files changed, 4 insertions, 2 deletions

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index d24cde24d..38063b45b 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -140,8 +140,10 @@ package body Vhdl.Parse is
    begin
       case Token is
          when Tok_Semi_Colon
-           | Tok_Right_Paren
-           | Tok_Comma =>
+            | Tok_Right_Paren
+            | Tok_Comma =>
+            --  Improve the location of the error: point just after the last
+            --  token so that new lines don't have a bad effect.
             Loc := Get_Prev_Location;
          when others =>
             Loc := Get_Token_Location;