From 5c4c1e1f96cd73b9f1a3d01d9de0126fc86ecf5f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 28 Jul 2019 08:19:04 +0000
Subject: [PATCH] IDE: fixed PathIsInPath for /a and /a/

git-svn-id: trunk@61636 -
---
 ide/ideprocs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 8ef30fcd4b..9e1f83ee7e 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -755,7 +755,7 @@ var
   l: integer;
 begin
   if Path='' then exit(false);
-  ExpPath:=ResolveDots(Path);
+  ExpPath:=AppendPathDelim(ResolveDots(Path));
   ExpDir:=AppendPathDelim(ResolveDots(Directory));
   l:=length(ExpDir);
   Result:=(l>0) and (length(ExpPath)>=l) and (ExpPath[l]=PathDelim)