vhdl-scanner: improve error message for empty quote.

1 files changed, 6 insertions, 0 deletions

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;