From 4128f21b2099ee0f15aa9f32bb5ea0c1e98b6dc5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 5 Dec 2018 18:39:30 +0100
Subject: scan_literal: set the token in case of exceptional

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/scanner-scan_literal.adb b/src/vhdl/scanner-scan_literal.adb
index c7c902d4d..ef6718925 100644
--- a/src/vhdl/scanner-scan_literal.adb
+++ b/src/vhdl/scanner-scan_literal.adb
@@ -311,4 +311,7 @@ begin
 exception
    when Constraint_Error =>
       Error_Msg_Scan ("literal overflow");
+
+      Current_Token := Tok_Integer;
+      Current_Context.Int64 := 0;
 end Scan_Literal;
-- 
cgit v1.2.3