diff options
| -rw-r--r-- | src/vhdl/scanner-scan_literal.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/scanner-scan_literal.adb b/src/vhdl/scanner-scan_literal.adb index 74af66fff..4be05d1f7 100644 --- a/src/vhdl/scanner-scan_literal.adb +++ b/src/vhdl/scanner-scan_literal.adb @@ -119,12 +119,12 @@ begin Has_Dot := False; Base := 10; + Scale := 0; C := Source (Pos); if C = '.' then -- Decimal integer. Has_Dot := True; - Scale := 0; Pos := Pos + 1; C := Source (Pos); if C not in '0' .. '9' then |