diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-23 19:34:49 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-23 19:34:49 +0100 |
| commit | 1474383160069468694f2e64920ce968a80d58ab (patch) | |
| tree | 9bffed8e0e8e59c2a22a014e4c6b350b4c423dda | |
| parent | 021f946659b84a9803ae9148cc1315059f5dfc15 (diff) | |
| download | ghdl-1474383160069468694f2e64920ce968a80d58ab.tar.gz ghdl-1474383160069468694f2e64920ce968a80d58ab.tar.bz2 ghdl-1474383160069468694f2e64920ce968a80d58ab.zip | |
scanner: set current_token in an error case.
| -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; |