From 330190e9a93fdeae0099c7eebeffdec11ba29fe2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 10 May 2015 03:22:13 +0200
Subject: [PATCH] fix, files unrelated to D are not anymore accepted

---
 src/ce_project.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/ce_project.pas b/src/ce_project.pas
index 3ccaabc8..78251218 100644
--- a/src/ce_project.pas
+++ b/src/ce_project.pas
@@ -148,14 +148,19 @@ end;
 
 procedure TCEProject.addSource(const aFilename: string);
 var
-  relSrc, absSrc: string;
+  relSrc, absSrc, ext: string;
 begin
+  ext := ExtractFileExt(aFilename);
+  if (dExtList.IndexOf(ext) = -1) and
+    (ext <> '.obj') and (ext <> '.o')
+      and (ext <> '.lib') and (ext <> '.a') then
+        exit;
   for relSrc in fSrcs do
   begin
     absSrc := expandFilenameEx(fBasePath,relsrc);
     if aFilename = absSrc then exit;
   end;
-  fSrcs.Add(ExtractRelativepath(fBasePath,aFilename));
+  fSrcs.Add(ExtractRelativepath(fBasePath, aFilename));
 end;
 
 procedure TCEProject.setRoot(const aValue: string);