paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 04:50:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed broken DirectoryExists

Browse Source 
git-svn-id: trunk@2136 -
This commit is contained in:
florian 2006-01-03 12:53:27 +00:00
parent 61e3b70cfa
commit a8e4073903
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/globals.pas
View File

@ -39,8 +39,9 @@ interface
Baseunix,unix,
{$endif}
{$endif}
{$IFDEF USE_SYSUTILS}
{ comphook pulls in sysutils anyways }
SysUtils,
{$IFDEF USE_SYSUTILS}
{$ELSE USE_SYSUTILS}
strings,
dos,
@ -617,19 +618,8 @@ implementation
Function DirectoryExists ( Const F : String) : Boolean;
{$IFDEF USE_SYSUTILS}
{$ELSE USE_SYSUTILS}
var
Info : SearchRec;
{$ENDIF USE_SYSUTILS}
begin
{$IFDEF USE_SYSUTILS}
Result:=SysUtils.FileExists(f);
{$ELSE USE_SYSUTILS}
findfirst(F,directory,info);
result:=(doserror=0);
findclose(Info);
{$ENDIF USE_SYSUTILS}
Result:=SysUtils.DirectoryExists(f);
end;