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

patched a leak

This commit is contained in:
Basile Burg 2015-09-27 02:17:37 +02:00
parent 4197668f3b
commit caf568c934
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_editor.pas
View File

@ -377,10 +377,10 @@ begin
begin begin
if fDoc.isDSource then if fDoc.isDSource then
begin begin
fErrList.Clear;
fTokList.Clear;
lex(fDoc.Lines.Text, fTokList, @lexFindToken); lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := getModuleName(fTokList); md := getModuleName(fTokList);
fTokList.Clear;
fErrList.Clear;
end; end;
if md = '' then md := extractFileName(fDoc.fileName); if md = '' then md := extractFileName(fDoc.fileName);
pageControl.ActivePage.Caption := md; pageControl.ActivePage.Caption := md;
@ -414,10 +414,10 @@ begin
md := ''; md := '';
if fDoc.isDSource then if fDoc.isDSource then
begin begin
fTokList.Clear;
fErrList.Clear;
lex(fDoc.Lines.Text, fTokList, @lexFindToken); lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := getModuleName(fTokList); md := getModuleName(fTokList);
fTokList.Clear;
fErrList.Clear;
end; end;
if md = '' then md := extractFileName(fDoc.fileName); if md = '' then md := extractFileName(fDoc.fileName);
pageControl.ActivePage.Caption := md; pageControl.ActivePage.Caption := md;