diff options
| -rw-r--r-- | src/vhdl/scanner-scan_literal.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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; |