paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: lazconf: clean up

Browse Source 
git-svn-id: trunk@36325 -
This commit is contained in:
mattias 2012-03-25 18:51:21 +00:00
parent 192e074495
commit 0c516a35b0
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/lazconf.pp
View File

@ -95,7 +95,6 @@ function FindDefaultMakePath: string; // full path of "make"
procedure GetDefaultMakeFilenames(List: TStrings); // list of standard paths of "make" on various distributions procedure GetDefaultMakeFilenames(List: TStrings); // list of standard paths of "make" on various distributions
function GetDefaultFPCSrcDirectories: TStringList; function GetDefaultFPCSrcDirectories: TStringList;
function GetDefaultLazarusSrcDirectories: TStringList; function GetDefaultLazarusSrcDirectories: TStringList;
function CheckFPCSourceDir(ADirectory: string): boolean;
function GetDefaultTargetCPU: string; function GetDefaultTargetCPU: string;
function GetDefaultTargetOS: string; function GetDefaultTargetOS: string;
@ -399,23 +398,6 @@ begin
Result.Add(DefaultLazarusSrcDirs[i]); Result.Add(DefaultLazarusSrcDirs[i]);
end; 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; function GetDefaultFPCSrcDirectories: TStringList;
var var
i: Integer; i: Integer;