paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed PathIsInPath for /a and /a/

Browse Source 
git-svn-id: trunk@61636 -
This commit is contained in:
mattias 2019-07-28 08:19:04 +00:00
parent 05e011f162
commit 5c4c1e1f96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideprocs.pp
View File

@ -755,7 +755,7 @@ var
l: integer; l: integer;
begin begin
if Path='' then exit(false); if Path='' then exit(false);
ExpPath:=ResolveDots(Path); ExpPath:=AppendPathDelim(ResolveDots(Path));
ExpDir:=AppendPathDelim(ResolveDots(Directory)); ExpDir:=AppendPathDelim(ResolveDots(Directory));
l:=length(ExpDir); l:=length(ExpDir);
Result:=(l>0) and (length(ExpPath)>=l) and (ExpPath[l]=PathDelim) Result:=(l>0) and (length(ExpPath)>=l) and (ExpPath[l]=PathDelim)