From 0c516a35b0532ae8c7c59ea91a0b038a15fac3dc Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 25 Mar 2012 18:51:21 +0000
Subject: [PATCH] IDE: lazconf: clean up

git-svn-id: trunk@36325 -
---
 ide/lazconf.pp | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/ide/lazconf.pp b/ide/lazconf.pp
index 469d80fdeb..3fd0b6b652 100644
--- a/ide/lazconf.pp
+++ b/ide/lazconf.pp
@@ -95,7 +95,6 @@ function FindDefaultMakePath: string; // full path of "make"
 procedure GetDefaultMakeFilenames(List: TStrings); // list of standard paths of "make" on various distributions
 function GetDefaultFPCSrcDirectories: TStringList;
 function GetDefaultLazarusSrcDirectories: TStringList;
-function CheckFPCSourceDir(ADirectory: string): boolean;
 
 function GetDefaultTargetCPU: string;
 function GetDefaultTargetOS: string;
@@ -399,23 +398,6 @@ begin
     Result.Add(DefaultLazarusSrcDirs[i]);
 end;
 
-function CheckFPCSourceDir(ADirectory: string): boolean;
-var
-  Dir: String;
-begin
-  Result:=false;
-  LazConfSubstituteMacros(ADirectory);
-  if DirPathExists(ADirectory) then begin
-    Dir:=AppendPathDelim(ADirectory);
-    // test on rtl/inc, to prevent a false positive on a fpc compiled units dir
-    // fpc 2.0: fcl is in fcl directory in fpc 2.0.x,
-    // fpc 2.1 and later: fcl is in packages/fcl-base
-    Result:=DirPathExists(Dir+SetDirSeparators('rtl/inc'))
-        and (DirPathExists(SetDirSeparators(Dir+'packages/fcl-base'))
-          or DirPathExists(SetDirSeparators(Dir+'fcl')));
-  end;
-end;
-
 function GetDefaultFPCSrcDirectories: TStringList;
 var
   i: Integer;