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