From caf568c9348f8d23192e9469e569f672eaac4aee Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 27 Sep 2015 02:17:37 +0200
Subject: [PATCH] patched a leak

---
 src/ce_editor.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 8b1640a1..cb0f4c22 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -377,10 +377,10 @@ begin
     begin
       if fDoc.isDSource then
       begin
-        fErrList.Clear;
-        fTokList.Clear;
         lex(fDoc.Lines.Text, fTokList, @lexFindToken);
         md := getModuleName(fTokList);
+        fTokList.Clear;
+        fErrList.Clear;
       end;
       if md = '' then md := extractFileName(fDoc.fileName);
       pageControl.ActivePage.Caption := md;
@@ -414,10 +414,10 @@ begin
   md := '';
   if fDoc.isDSource then
   begin
-    fTokList.Clear;
-    fErrList.Clear;
     lex(fDoc.Lines.Text, fTokList, @lexFindToken);
     md := getModuleName(fTokList);
+    fTokList.Clear;
+    fErrList.Clear;
   end;
   if md = '' then md := extractFileName(fDoc.fileName);
   pageControl.ActivePage.Caption := md;