From 038cd1c044fd7a01ae8c6ad9eef8af2eb7e33168 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 23 Oct 2017 18:20:55 +0200 Subject: scanner: disp a nice message for '!='. --- src/vhdl/scanner.adb | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'src') 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; -- cgit v1.2.3