forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix uninit variable that caused the module name to be in the import list

This commit is contained in:
Basile Burg 2016-06-27 20:09:27 +02:00
parent a1dde3a592
commit ae4fd5f763
1 changed files with 2 additions and 3 deletions

5
src/ce_dlang.pas
View File

@ -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