From 25103162752e925ed81099ce5b848b180081af1b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 9 Jul 2017 15:07:14 +0200
Subject: [PATCH] do not specify each parent folder to dcd

---
 src/ce_dcd.pas | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index 161e18da..e4fa271f 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -195,24 +195,14 @@ var
   fold: string;
   folds: TStringList;
 begin
-  if fProj <> project then
+  if (fProj = nil) or (fProj <> project) then
     exit;
-  if fProj = nil then
-    exit;
-  //
+
   folds := TStringList.Create;
   try
     fold := ce_projutils.projectSourcePath(project);
-    if fold.dirExists and (folds.IndexOf(fold) = -1) then
+    if fold.dirExists then
       folds.Add(fold);
-  	for i:= 0 to fProj.sourcesCount-1 do
-    begin
-      if not (fProj.sourceAbsolute(i).fileExists) then
-        continue;
-      fold := fProj.sourceAbsolute(i).extractFilePath;
-      if folds.IndexOf(fold) = -1 then
-        folds.Add(fold);
-    end;
   	for i := 0 to fProj.importsPathCount-1 do
   	begin
     	fold := fProj.importPath(i);