paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 11:40:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Move func param ExternalTools to a var in TLazarusBuilder.

Browse Source 
git-svn-id: trunk@44045 -
This commit is contained in:
juha 2014-02-13 15:54:02 +00:00
parent 42b052db7b
commit d7ac5727f1
3 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/buildlazdialog.pas
View File

@ -161,19 +161,16 @@ type
fOutputDirRedirected: boolean;
fTargetFilename: string;
fProfileChanged: boolean;
function CreateIDEMakeOptions(Profile: TBuildLazarusProfile;
Flags: TBuildLazarusFlags): TModalResult;
function CreateIDEMakeOptions(Profile: TBuildLazarusProfile; Flags: TBuildLazarusFlags): TModalResult;
function IsWriteProtected(Profile: TBuildLazarusProfile): Boolean;
public
{$IFNDEF EnableNewExtTools}
ExternalTools: TBaseExternalToolList;
{$ENDIF}
constructor Create;
function ShowConfigureBuildLazarusDlg(AProfiles: TBuildLazarusProfiles): TModalResult;
function MakeLazarus(Profile: TBuildLazarusProfile;
{$IFNDEF EnableNewExtTools}ExternalTools: TBaseExternalToolList;{$ENDIF}
Flags: TBuildLazarusFlags): TModalResult;
function SaveIDEMakeOptions(Profile: TBuildLazarusProfile;
Flags: TBuildLazarusFlags): TModalResult;
function MakeLazarus(Profile: TBuildLazarusProfile; Flags: TBuildLazarusFlags): TModalResult;
function SaveIDEMakeOptions(Profile: TBuildLazarusProfile; Flags: TBuildLazarusFlags): TModalResult;
public
property PackageOptions: string read fPackageOptions write fPackageOptions;
property ProfileChanged: boolean read fProfileChanged write fProfileChanged;
@ -230,7 +227,6 @@ begin
end;
function TLazarusBuilder.MakeLazarus(Profile: TBuildLazarusProfile;
{$IFNDEF EnableNewExtTools}ExternalTools: TBaseExternalToolList;{$ENDIF}
Flags: TBuildLazarusFlags): TModalResult;
procedure ApplyCleanOnce;

4
ide/lazbuild.lpr
View File

@ -579,10 +579,11 @@ begin
Builder:=TLazarusBuilder.Create;
try
Builder.ProfileChanged:=false;
Builder.ExternalTools:=EnvironmentOptions.ExternalTools;
if BuildLazProfiles.Current.IdeBuildMode=bmCleanAllBuild then begin
Builder.PackageOptions:='';
CurResult:=Builder.MakeLazarus(BuildLazProfiles.Current,
EnvironmentOptions.ExternalTools,
Flags+[blfDontBuild]);
if CurResult<>mrOk then begin
if ConsoleVerbosity>=-1 then
@ -620,7 +621,6 @@ begin
// compile IDE
CurResult:=Builder.MakeLazarus(BuildLazProfiles.Current,
EnvironmentOptions.ExternalTools,
Flags+[blfUseMakeIDECfg,blfOnlyIDE]);
if CurResult<>mrOk then begin
if ConsoleVerbosity>=-1 then

9
ide/main.pp
View File

@ -7531,6 +7531,7 @@ begin
fBuilder:=TLazarusBuilder.Create;
{$IFNDEF EnableNewExtTools}
MessagesView.BeginBlock;
fBuilder.ExternalTools:=ExternalTools;
{$ENDIF}
fBuilder.ProfileChanged:=false;
with MiscellaneousOptions do
@ -7545,9 +7546,7 @@ begin
if BuildLazProfiles.Current.IdeBuildMode=bmCleanAllBuild then begin
SourceEditorManager.ClearErrorLines;
fBuilder.PackageOptions:='';
Result:=fBuilder.MakeLazarus(BuildLazProfiles.Current,
{$IFNDEF EnableNewExtTools}ExternalTools,{$ENDIF}
[blfDontBuild]);
Result:=fBuilder.MakeLazarus(BuildLazProfiles.Current, [blfDontBuild]);
if Result<>mrOk then begin
DebugLn('TMainIDE.DoBuildLazarus: Clean all failed.');
exit;
@ -7598,9 +7597,7 @@ begin
// make lazarus ide
SourceEditorManager.ClearErrorLines;
IDEBuildFlags:=IDEBuildFlags+[blfUseMakeIDECfg,blfDontClean];
Result:=fBuilder.MakeLazarus(BuildLazProfiles.Current,
{$IFNDEF EnableNewExtTools}ExternalTools,{$ENDIF}
IDEBuildFlags);
Result:=fBuilder.MakeLazarus(BuildLazProfiles.Current, IDEBuildFlags);
if Result<>mrOk then exit;
if fBuilder.ProfileChanged then