diff options
Diffstat (limited to 'src/vhdl/scanner.adb')
| -rw-r--r-- | src/vhdl/scanner.adb | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb index 43e33ae63..824f69d81 100644 --- a/src/vhdl/scanner.adb +++ b/src/vhdl/scanner.adb @@ -1601,10 +1601,18 @@ package body Scanner is if Flag_Psl then Current_Token := Tok_Exclam_Mark; else - -- LRM93 13.10 - -- A vertical line (|) can be replaced by an exclamation - -- mark (!) where used as a delimiter. - Current_Token := Tok_Bar; + if Source (Pos + 1) = '=' then + -- != is not allowed in VHDL, but be friendly with C users. + Error_Msg_Scan + (Get_Token_Location, "Use '/=' for inequality in vhdl"); + Current_Token := Tok_Not_Equal; + Pos := Pos + 1; + else + -- LRM93 13.10 + -- A vertical line (|) can be replaced by an exclamation + -- mark (!) where used as a delimiter. + Current_Token := Tok_Bar; + end if; end if; Pos := Pos + 1; return; |