From a254119dbe976ad623f3fd4068a7ccba6ecd941d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 4 Feb 2020 18:45:21 +0100 Subject: vhdl-scanner: improve error message for empty quote. --- src/vhdl/vhdl-scanner.adb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src') diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index 55a98e03f..eac8cfc92 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -2274,6 +2274,12 @@ package body Vhdl.Scanner is Name_Table.Get_Identifier (Source (Pos + 1)); Pos := Pos + 3; return; + elsif Source (Pos + 1) = ''' then + Error_Msg_Scan ("empty quote is not allowed in vhdl"); + Current_Token := Tok_Character; + Current_Context.Identifier := Name_Table.Get_Identifier (' '); + Pos := Pos + 2; + return; else Current_Token := Tok_Tick; Pos := Pos + 1; -- cgit v1.2.3