paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 14:12:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed CreateRelativeSearchPath to keep a . search path

Browse Source 
git-svn-id: trunk@27365 -
This commit is contained in:
mattias 2010-09-14 16:37:32 +00:00
parent bf387fa577
commit db8fac4fac
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/fileprocs.pas
View File

@ -1816,6 +1816,8 @@ begin
CurDir:=copy(Result,StartPos,EndPos-StartPos);
if FilenameIsAbsolute(CurDir) then begin
NewCurDir:=CreateRelativePath(CurDir,BaseDirectory);
if (NewCurDir<>CurDir) and (NewCurDir='') then
NewCurDir:='.';
if NewCurDir<>CurDir then begin
DiffLen:=length(NewCurDir)-length(CurDir);
Result:=copy(Result,1,StartPos-1)+NewCurDir