From ae4fd5f7636fb5f0b6539728da80f2e0a5f12288 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 27 Jun 2016 20:09:27 +0200
Subject: [PATCH] fix uninit variable that caused the module name to be in the
 import list

---
 src/ce_dlang.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/ce_dlang.pas b/src/ce_dlang.pas
index 69f87fd8..b8ef592e 100644
--- a/src/ce_dlang.pas
+++ b/src/ce_dlang.pas
@@ -992,10 +992,9 @@ end;
 function getModuleName(const list: TLexTokenList): string;
 var
   ltk: PLexToken;
-  mtok: boolean;
+  mtok: boolean = false;
 begin
   Result := '';
-  mtok := False;
   for ltk in list do
   begin
     if mtok then
@@ -1020,7 +1019,7 @@ end;
 procedure getImports(const list: TLexTokenList; imports: TStrings);
 var
   i: integer;
-  imp: boolean;
+  imp: boolean = false;
   tok: PLexToken;
   itm: string = '';
 begin