paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 14:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation of LazBuild

Browse Source 
git-svn-id: trunk@39302 -
This commit is contained in:
juha 2012-11-18 16:03:57 +00:00
parent 0951479289
commit 9f051d112c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/initialsetupdlgs.pas
View File

@ -221,14 +221,14 @@ function ShowInitialSetupDialog: TModalResult;
// Lazarus Directory
function CheckLazarusDirectoryQuality(ADirectory: string; out Note: string): TSDFilenameQuality;
function SearchLazarusDirectoryCandidates(StopIfFits: boolean): TSDFileInfoList;
//procedure SetupLazarusDirectory;
procedure SetupLazarusDirectory;
// Compiler
function CheckCompilerQuality(AFilename: string; out Note: string;
TestSrcFilename: string): TSDFilenameQuality;
function SearchCompilerCandidates(StopIfFits: boolean;
const TestSrcFilename: string): TSDFileInfoList;
//procedure SetupCompilerFilename;
procedure SetupCompilerFilename;
// FPC Source
function CheckFPCSrcDirQuality(ADirectory: string; out Note: string;
@ -429,7 +429,7 @@ begin
EnvironmentOptions.LazarusDirectory:=OldLazarusDir;
end;
end;
{
procedure SetupLazarusDirectory;
var
Dir, Note: String;
@ -463,7 +463,7 @@ begin
List.Free;
end;
end;
}
function CheckCompilerQuality(AFilename: string; out Note: string;
TestSrcFilename: string): TSDFilenameQuality;
var
@ -654,7 +654,7 @@ begin
EnvironmentOptions.CompilerFilename:=OldCompilerFilename;
end;
end;
{
procedure SetupCompilerFilename;
var
Filename, Note: String;
@ -688,7 +688,7 @@ begin
List.Free;
end;
end;
}
function CheckFPCSrcDirQuality(ADirectory: string; out Note: string;
const FPCVer: String): TSDFilenameQuality;