diff options
| -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; |