From 877e9797d7efbc252e77ad05b9c99e18e555b03a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 23 Nov 2022 07:55:44 +0100
Subject: vhdl-parse: add a comment

---
 src/vhdl/vhdl-parse.adb | 6 ++++--
 1 file 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;
-- 
cgit v1.2.3