From 5c8fc25f3e27190f4ff8ce943e2d33375f2b9512 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Nov 2017 06:06:04 +0100
Subject: scan_literal: avoid possible CE related to uninitialized variable.

---
 src/vhdl/scanner-scan_literal.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3