From 97b1326d7ba603ebc1614f05fae1e606276c4795 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Fri, 24 Aug 2018 15:33:09 +0000 Subject: + 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 --- rtl/os2/sysutils.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'rtl/os2/sysutils.pp') 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 -- cgit v1.2.1