diff options
| -rw-r--r-- | src/vhdl/vhdl-scanner.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index 177f04bad..40176e9d1 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -1046,6 +1046,8 @@ package body Vhdl.Scanner is null; when '_' => if Source (P + 1) = '_' then + -- Need to set the current position for the error message. + Pos := P + 1; Error_Msg_Scan ("two underscores can't be consecutive"); end if; when ' ' | ')' | '.' | ';' | ':' => @@ -1094,6 +1096,7 @@ package body Vhdl.Scanner is C := '_'; else -- Eat the trailing underscore. + Pos := P - 1; Error_Msg_Scan ("an identifier cannot finish with '_'"); end if; end if; @@ -1873,7 +1876,7 @@ package body Vhdl.Scanner is Warning_Msg_Scan (Warnid_Pragma, "incomplete pragma directive ignored"); when Name_Translate => - Scan_Comment_Identifier (Id, True); + Scan_Comment_Identifier (Id, False); case Id is when Name_On => Scan_Translate_On; |