+ add Delphi compatible FollowLink parameter (default is True) to FileExists and DirectoryExists; support for it is up to each target

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39668 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 694d555b47..60d8180338 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -228,7 +228,7 @@ begin
 end;
 
 
-function FileExists (const FileName: RawByteString): boolean;
+function FileExists (const FileName: RawByteString; FollowLink : Boolean): boolean;
 var
   L: longint;
 begin
@@ -515,7 +515,7 @@ begin
 end;
 
 
-function DirectoryExists (const Directory: RawByteString): boolean;
+function DirectoryExists (const Directory: RawByteString; FollowLink : Boolean): boolean;
 var
   L: longint;
 begin