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

IDE: build IDE: use default compiler, not compiler of project

Browse Source 
git-svn-id: trunk@44333 -
This commit is contained in:
mattias 2014-03-03 09:58:07 +00:00
parent 45e9bd0b9c
commit d0d17505d9
1 changed files with 30 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/buildmanager.pas
View File

@ -61,6 +61,7 @@ type
TBuildManager = class(TBaseBuildManager)
private
FBuildTarget: TObject;
FUnitSetCache: TFPCUnitSetCache;
fBuildLazExtraOptions: string; // last build lazarus extra options
FUnitSetChangeStamp: integer;
@ -147,6 +148,7 @@ type
function OnRunCompilerWithOptions(ExtTool: TIDEExternalToolOptions;
CompOptions: TBaseCompilerOptions): TModalResult;
{$ENDIF}
procedure OnProjectDestroy(Sender: TObject);
procedure SetUnitSetCache(const AValue: TFPCUnitSetCache);
protected
// command line overrides
@ -229,6 +231,7 @@ type
function BuildTargetIDEIsDefault: boolean;
property FPCSrcScans: TFPCSrcScans read FFPCSrcScans;
property BuildTarget: TObject read FBuildTarget; // TProject or nil
end;
var
@ -267,6 +270,15 @@ end;
{ TBuildManager }
procedure TBuildManager.OnProjectDestroy(Sender: TObject);
var
aProject: TProject;
begin
aProject:=TProject(Sender);
if FBuildTarget=aProject then
FBuildTarget:=nil;
end;
procedure TBuildManager.OnMacroSubstitution(TheMacro: TTransferMacro;
const MacroName: string; var s: string; const Data: PtrInt; var Handled,
Abort: boolean; Depth: integer);
@ -598,14 +610,18 @@ end;
function TBuildManager.GetFPCompilerFilename: string;
var
s: string;
AProject: TProject;
begin
Result:='';
if (Project1<>nil)
and ([crCompile,crBuild]*Project1.CompilerOptions.CompileReasons<>[])
and (Project1.CompilerOptions.CompilerPath<>'')
then begin
Result:=Project1.GetCompilerFilename;
//debugln(['TBuildManager.GetFPCompilerFilename project compiler="',Result,'"']);
if (FBuildTarget is TProject) then
begin
AProject:=TProject(FBuildTarget);
if ([crCompile,crBuild]*AProject.CompilerOptions.CompileReasons<>[])
and (AProject.CompilerOptions.CompilerPath<>'')
then begin
Result:=AProject.GetCompilerFilename;
//debugln(['TBuildManager.GetFPCompilerFilename project compiler="',Result,'"']);
end;
end;
if not IsFPCExecutable(Result,s) then begin
//if Result<>'' then debugln(['TBuildManager.GetFPCompilerFilename project compiler NOT fpc: "',Result,'"']);
@ -2573,8 +2589,8 @@ begin
// compute new TargetOS
if OverrideTargetOS<>'' then
fTargetOS:=OverrideTargetOS
else if Project1<>nil then
fTargetOS:=Project1.CompilerOptions.TargetOS
else if FBuildTarget is TProject then
fTargetOS:=TProject(FBuildTarget).CompilerOptions.TargetOS
else
fTargetOS:='';
if (fTargetOS='') or (SysUtils.CompareText(fTargetOS,'default')=0) then
@ -2584,8 +2600,8 @@ begin
// compute new TargetCPU
if OverrideTargetCPU<>'' then
fTargetCPU:=OverrideTargetCPU
else if Project1<>nil then
fTargetCPU:=Project1.CompilerOptions.TargetCPU
else if FBuildTarget is TProject then
fTargetCPU:=TProject(FBuildTarget).CompilerOptions.TargetCPU
else
fTargetCPU:='';
if (fTargetCPU='') or (SysUtils.CompareText(fTargetCPU,'default')=0) then
@ -2616,6 +2632,9 @@ end;
procedure TBuildManager.SetBuildTargetProject1(Quiet: boolean;
ScanFPCSrc: TScanModeFPCSources);
begin
FBuildTarget:=Project1;
if FBuildTarget<>nil then
TProject(FBuildTarget).AddHandlerDestroy(@OnProjectDestroy);
SetBuildTarget('','','',ScanFPCSrc,Quiet);
end;
@ -2625,6 +2644,7 @@ var
NewTargetCPU: String;
NewLCLWidgetSet: String;
begin
FBuildTarget:=nil;
with MiscellaneousOptions do begin
NewTargetOS:=BuildLazOpts.TargetOS;
NewTargetCPU:=BuildLazOpts.TargetCPU;