From 5e9c0f206b7bc66a908f958e8900066cb75b4a1a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 8 Aug 2017 06:21:34 +0200
Subject: [PATCH] fix #179 - Disable internal handling of DUB
 excludedSourcesFiles

---
 src/ce_dubproject.pas | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index d72c0e09..01e8c856 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -712,8 +712,6 @@ var
   confs: TJSONArray;
 begin
   result := nil;
-  if fConfigIx = 0 then
-    exit;
   if fJSON.findArray('configurations', confs) and (fConfigIx < confs.Count) then
     result := confs.Objects[fConfigIx];
 end;
@@ -786,7 +784,7 @@ var
   item: TJSONData;
   conf: TJSONObject;
   arr: TJSONArray;
-  i, j: integer;
+  i{, j}: integer;
 procedure getExclusion(from: TJSONObject);
 var
   i: integer;
@@ -821,7 +819,7 @@ begin
 end;
 var
   pth: string;
-  glb: TRegExpr;
+  //glb: TRegExpr;
 begin
   fSrcs.Clear;
   if not assigned(fJSON) then
@@ -863,8 +861,9 @@ begin
       if conf.findArray('sourceFiles', arr) then for i := 0 to arr.Count-1 do
         tryAddRelOrAbsFile(arr.Strings[i]);
     end;
-    // exclusions
-    lst.Clear;
+    // exclusions : not managed anymore because of other IDE features that rely
+    // on the full list (scan TODOs, <CPFS>, search in project, etc)
+    {lst.Clear;
     getExclusion(fJSON);
       conf := getCurrentCustomConfig;
     if conf.isNotNil then
@@ -888,7 +887,7 @@ begin
       finally
         glb.Free;
       end;
-    end;
+    end;}
   finally
     lst.Free;
   end;