From 1474383160069468694f2e64920ce968a80d58ab Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 23 Nov 2018 19:34:49 +0100
Subject: scanner: set current_token in an error case.

---
 src/vhdl/scanner-scan_literal.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/vhdl/scanner-scan_literal.adb b/src/vhdl/scanner-scan_literal.adb
index 4be05d1f7..c7c902d4d 100644
--- a/src/vhdl/scanner-scan_literal.adb
+++ b/src/vhdl/scanner-scan_literal.adb
@@ -129,6 +129,8 @@ begin
       C := Source (Pos);
       if C not in '0' .. '9' then
          Error_Msg_Scan ("a dot must be followed by a digit");
+         Current_Token := Tok_Real;
+         Current_Context.Fp64 := Fp64 (To_Float_64 (False, Res, Base, 0));
          return;
       end if;
       Scan_Integer;
-- 
cgit v1.2.3