diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-11-23 07:55:44 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-11-23 07:55:44 +0100 |
| commit | 877e9797d7efbc252e77ad05b9c99e18e555b03a (patch) | |
| tree | 3290faacf36b26d7ddfdbee0d95385e9b6865fc3 /src/vhdl/vhdl-parse.adb | |
| parent | 81295dc08948e0cf103b4597580ed95a9cc25813 (diff) | |
| download | ghdl-877e9797d7efbc252e77ad05b9c99e18e555b03a.tar.gz ghdl-877e9797d7efbc252e77ad05b9c99e18e555b03a.tar.bz2 ghdl-877e9797d7efbc252e77ad05b9c99e18e555b03a.zip | |
vhdl-parse: add a comment
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 6 |
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; |