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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_dlang.pas
View File

@ -992,10 +992,9 @@ end;
function getModuleName(const list: TLexTokenList): string; function getModuleName(const list: TLexTokenList): string;
var var
ltk: PLexToken; ltk: PLexToken;
mtok: boolean; mtok: boolean = false;
begin begin
Result := ''; Result := '';
mtok := False;
for ltk in list do for ltk in list do
begin begin
if mtok then if mtok then
@ -1020,7 +1019,7 @@ end;
procedure getImports(const list: TLexTokenList; imports: TStrings); procedure getImports(const list: TLexTokenList; imports: TStrings);
var var
i: integer; i: integer;
imp: boolean; imp: boolean = false;
tok: PLexToken; tok: PLexToken;
itm: string = ''; itm: string = '';
begin begin