paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 06:19:16 +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 // Lazarus Directory
function CheckLazarusDirectoryQuality(ADirectory: string; out Note: string): TSDFilenameQuality; function CheckLazarusDirectoryQuality(ADirectory: string; out Note: string): TSDFilenameQuality;
function SearchLazarusDirectoryCandidates(StopIfFits: boolean): TSDFileInfoList; function SearchLazarusDirectoryCandidates(StopIfFits: boolean): TSDFileInfoList;
//procedure SetupLazarusDirectory; procedure SetupLazarusDirectory;
// Compiler // Compiler
function CheckCompilerQuality(AFilename: string; out Note: string; function CheckCompilerQuality(AFilename: string; out Note: string;
TestSrcFilename: string): TSDFilenameQuality; TestSrcFilename: string): TSDFilenameQuality;
function SearchCompilerCandidates(StopIfFits: boolean; function SearchCompilerCandidates(StopIfFits: boolean;
const TestSrcFilename: string): TSDFileInfoList; const TestSrcFilename: string): TSDFileInfoList;
//procedure SetupCompilerFilename; procedure SetupCompilerFilename;
// FPC Source // FPC Source
function CheckFPCSrcDirQuality(ADirectory: string; out Note: string; function CheckFPCSrcDirQuality(ADirectory: string; out Note: string;
@ -429,7 +429,7 @@ begin
EnvironmentOptions.LazarusDirectory:=OldLazarusDir; EnvironmentOptions.LazarusDirectory:=OldLazarusDir;
end; end;
end; end;
{
procedure SetupLazarusDirectory; procedure SetupLazarusDirectory;
var var
Dir, Note: String; Dir, Note: String;
@ -463,7 +463,7 @@ begin
List.Free; List.Free;
end; end;
end; end;
}
function CheckCompilerQuality(AFilename: string; out Note: string; function CheckCompilerQuality(AFilename: string; out Note: string;
TestSrcFilename: string): TSDFilenameQuality; TestSrcFilename: string): TSDFilenameQuality;
var var
@ -654,7 +654,7 @@ begin
EnvironmentOptions.CompilerFilename:=OldCompilerFilename; EnvironmentOptions.CompilerFilename:=OldCompilerFilename;
end; end;
end; end;
{
procedure SetupCompilerFilename; procedure SetupCompilerFilename;
var var
Filename, Note: String; Filename, Note: String;
@ -688,7 +688,7 @@ begin
List.Free; List.Free;
end; end;
end; end;
}
function CheckFPCSrcDirQuality(ADirectory: string; out Note: string; function CheckFPCSrcDirQuality(ADirectory: string; out Note: string;
const FPCVer: String): TSDFilenameQuality; const FPCVer: String): TSDFilenameQuality;