From bc0dc31b0d925c3507c78cb9ca0d9f1237f943b7 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 21 Apr 2018 10:39:57 +0200
Subject: [PATCH] fix #300 - Error while finding the common directory and if
 all the sources dont have a module declaration

---
 src/ce_projutils.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/ce_projutils.pas b/src/ce_projutils.pas
index 1cabd10a..eebcceff 100644
--- a/src/ce_projutils.pas
+++ b/src/ce_projutils.pas
@@ -243,7 +243,15 @@ begin
       end;
     end;
     deleteDups(lst);
-    if project.sourcesCount = 0 then
+    // issue 300 when no moduleDeclaration lst can be empty
+    if (lst.Count = 0) and (project.sourcesCount > 0) then
+    begin
+      for i := 0 to project.sourcesCount-1 do
+        lst.Add(project.sourceAbsolute(i));
+      result := commonFolder(lst);
+      result := result.extractFileDir;
+    end
+    else if (project.sourcesCount = 0) then
       result := ''
     else
     begin