From 0731f4ba72f03cf55d62633e58bb003a6e07725f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 5 Apr 2012 07:33:50 +0000
Subject: [PATCH] IDE: clean up

git-svn-id: trunk@36569 -
---
 ide/initialsetupdlgs.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ide/initialsetupdlgs.pas b/ide/initialsetupdlgs.pas
index 5e08b9da20..6a84ea25af 100644
--- a/ide/initialsetupdlgs.pas
+++ b/ide/initialsetupdlgs.pas
@@ -155,7 +155,7 @@ procedure SetupCompilerFilename;
 function CheckFPCSrcDirQuality(ADirectory: string;
   out Note: string; FPCVer: string): TSDFilenameQuality;
 function SearchFPCSrcDirCandidates(StopIfFits: boolean;
-  const LazarusDir, FPCVer: string): TObjectList;
+  const FPCVer: string): TObjectList;
 
 function GetValueFromPrimaryConfig(OptionFilename, Path: string): string;
 function GetValueFromSecondaryConfig(OptionFilename, Path: string): string;
@@ -696,7 +696,7 @@ begin
 end;
 
 function SearchFPCSrcDirCandidates(StopIfFits: boolean;
-  const LazarusDir, FPCVer: string): TObjectList;
+  const FPCVer: string): TObjectList;
 
   function Check(AFilename: string; var List: TObjectList): boolean;
   var
@@ -1100,8 +1100,7 @@ var
 begin
   fCompilerFilenameChanged:=false;
   FreeAndNil(FDirs[sddtFPCSrcDir]);
-  Dirs:=SearchFPCSrcDirCandidates(false,
-                        EnvironmentOptions.GetParsedLazarusDirectory,GetFPCVer);
+  Dirs:=SearchFPCSrcDirCandidates(false,GetFPCVer);
   FDirs[sddtFPCSrcDir]:=Dirs;
   FillComboboxWithFileInfoList(FPCSrcDirComboBox,Dirs);
 end;