From a8e4073903132860d744a5b3332ab94d44b1a9be Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 3 Jan 2006 12:53:27 +0000
Subject: [PATCH] * fixed broken DirectoryExists

git-svn-id: trunk@2136 -
---
 compiler/globals.pas | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 233927b52c..ac8f111bb7 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -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;