paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 21:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: search compiler file name candidates: less checks

Browse Source 
git-svn-id: trunk@36590 -
This commit is contained in:
mattias 2012-04-06 08:46:27 +00:00
parent f0f081c62e
commit ba1d34de36
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/initialsetupdlgs.pas
View File

@ -272,10 +272,10 @@ function SearchLazarusDirectoryCandidates(StopIfFits: boolean): TObjectList;
if Dir='' then Dir:='.';
DoDirSeparators(Dir);
Dir:=ChompPathDelim(Dir);
EnvironmentOptions.LazarusDirectory:=Dir;
RealDir:=ChompPathDelim(EnvironmentOptions.GetParsedLazarusDirectory);
// check if already checked
if CaptionInSDFileList(Dir,List) then exit;
EnvironmentOptions.LazarusDirectory:=Dir;
RealDir:=ChompPathDelim(EnvironmentOptions.GetParsedLazarusDirectory);
// check if exists
if not DirPathExistsCached(RealDir) then exit;
// add to list and check quality
@ -452,11 +452,12 @@ var
Result:=false;
if AFilename='' then exit;
DoDirSeparators(AFilename);
EnvironmentOptions.CompilerFilename:=AFilename;
RealFilename:=EnvironmentOptions.GetParsedCompilerFilename;
if RealFilename='' then exit;
// check if already checked
if CaptionInSDFileList(AFilename,List) then exit;
EnvironmentOptions.CompilerFilename:=AFilename;
RealFilename:=EnvironmentOptions.GetParsedCompilerFilename;
//debugln(['CheckFile AFilename=',AFilename,' Real=',RealFilename]);
if RealFilename='' then exit;
// check if exists
if not FileExistsCached(RealFilename) then exit;
// skip directories
@ -704,11 +705,11 @@ function SearchFPCSrcDirCandidates(StopIfFits: boolean;
DoDirSeparators(AFilename);
AFilename:=ChompPathDelim(AFilename);
if AFilename='' then exit;
// check if already checked
if CaptionInSDFileList(AFilename,List) then exit;
EnvironmentOptions.FPCSourceDirectory:=AFilename;
RealDir:=EnvironmentOptions.GetParsedFPCSourceDirectory;
if RealDir='' then exit;
// check if already checked
if CaptionInSDFileList(AFilename,List) then exit;
// check if exists
if not DirPathExistsCached(RealDir) then exit;
// add to list and check quality