diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-13 06:06:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-13 06:06:04 +0100 |
| commit | 5c8fc25f3e27190f4ff8ce943e2d33375f2b9512 (patch) | |
| tree | 1383f4b9248fb304bdc50345c13ba04904f7aea5 /src | |
| parent | abc988dcc99ee5fdd2bbdb6fc3c730d1c2fb0abb (diff) | |
| download | ghdl-5c8fc25f3e27190f4ff8ce943e2d33375f2b9512.tar.gz ghdl-5c8fc25f3e27190f4ff8ce943e2d33375f2b9512.tar.bz2 ghdl-5c8fc25f3e27190f4ff8ce943e2d33375f2b9512.zip | |
scan_literal: avoid possible CE related to uninitialized variable.
Diffstat (limited to 'src')
| -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 |