From 8f6162d677797ef9e18e6d8b098060b9fafd22ea Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 22 Oct 2015 00:24:42 +0200
Subject: [PATCH] fix, native project, add source to existing proj, err in rel
 path extraction

---
 src/ce_nativeproject.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index 86f90788..809dcadc 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -196,7 +196,8 @@ begin
     else absSrc := expandFilenameEx(fBasePath, relsrc);
     if SameFileName(aFilename, absSrc) then exit;
   end;
-  fSrcs.Add(ExtractRelativepath(fBasePath, aFilename));
+  relSrc := ExtractRelativepath(fBasePath, ExcludeLeadingPathDelimiter(aFilename));
+  fSrcs.Add(relSrc);
 end;
 
 procedure TCENativeProject.setRoot(const aValue: string);