From 7a3a15b55ecf876ec7a698b9f775ccebda76c1cf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 20 Oct 2019 21:27:58 +0200
Subject: vhdl: try to convert identifier to token only for identifiers

(and not for bit string literal).
Fix #983
---
 src/vhdl/vhdl-scanner.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb
index d01739a20..1d47a76f4 100644
--- a/src/vhdl/vhdl-scanner.adb
+++ b/src/vhdl/vhdl-scanner.adb
@@ -2486,7 +2486,9 @@ package body Vhdl.Scanner is
             return;
          when 'A' .. 'Z' | 'a' .. 'z' =>
             Scan_Identifier (Flag_Psl);
-            Identifier_To_Token;
+            if Current_Token = Tok_Identifier then
+               Identifier_To_Token;
+            end if;
             return;
          when UC_A_Grave .. UC_O_Diaeresis
            | UC_O_Oblique_Stroke .. UC_Icelandic_Thorn
-- 
cgit v1.2.3