From 84219d44fba7d75f443714f85b3cd22aa9530d12 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 18 Jan 2017 20:52:33 +0100
Subject: [PATCH] libman, reg from project, fix case where source root could be
relative
---
src/ce_libman.pas | 2 +-
src/ce_libmaneditor.pas | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/ce_libman.pas b/src/ce_libman.pas
index ec6385c0..5aa9e2d4 100644
--- a/src/ce_libman.pas
+++ b/src/ce_libman.pas
@@ -334,7 +334,7 @@ begin
begin
lib := libraryByIndex[i];
als := lib.libAlias.upperCase;
- // TODO-cmaintenace: from 3 upd 1 remove auto suprerssion of libman entry for phobos and rt.
+ // TODO-cmaintenace: from 3 upd 1 remove auto deletion of libman entry for phobos and rt.
if (als = 'PHOBOS') or (als = 'RUNTIME') or (als = 'DRUNTIME') then
begin
fCollection.Delete(i);
diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index dbb228dc..d91924b2 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -938,7 +938,11 @@ begin
if project.sourcesCount = 0 then
result := ''
else
+ begin
result := lst[0];
+ if FilenameIsAbsolute(result) then
+ result := expandFilenameEx(GetCurrentDir, result);
+ end;
if ((project.sourcesCount > 1) and (lst.Count > 1))
or (not sym) then
begin