mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 22:20:25 +02:00
IDe: less hints
git-svn-id: trunk@59145 -
This commit is contained in:
parent
1f64e2b29d
commit
fc0237b5ab
@ -4288,12 +4288,11 @@ function TLazPackageGraph.CompilePackageUsingFPMake(APackageName: string; Flags:
|
|||||||
|
|
||||||
var
|
var
|
||||||
PkgCompileTool: TAbstractExternalTool;
|
PkgCompileTool: TAbstractExternalTool;
|
||||||
FPCParser: TFPCParser;
|
|
||||||
CompilerFilename: String;
|
CompilerFilename: String;
|
||||||
EffectiveCompilerParams: String;
|
EffectiveCompilerParams: String;
|
||||||
ExtToolData: TLazPkgGraphExtToolData;
|
|
||||||
begin
|
begin
|
||||||
Result:=mrCancel;
|
Result:=mrCancel;
|
||||||
|
if ShowAbort then ;
|
||||||
|
|
||||||
//DebugLn('TLazPackageGraph.CompilePackageAsFPMake A ',APackageName,' Flags=',PkgCompileFlagsToString(Flags));
|
//DebugLn('TLazPackageGraph.CompilePackageAsFPMake A ',APackageName,' Flags=',PkgCompileFlagsToString(Flags));
|
||||||
BeginUpdate(false);
|
BeginUpdate(false);
|
||||||
@ -4315,8 +4314,7 @@ begin
|
|||||||
else
|
else
|
||||||
PkgCompileTool.Reference(Self,Classname);
|
PkgCompileTool.Reference(Self,Classname);
|
||||||
try
|
try
|
||||||
FPCParser:=TFPCParser(PkgCompileTool.AddParsers(SubToolFPC));
|
PkgCompileTool.AddParsers(SubToolFPC);
|
||||||
|
|
||||||
PkgCompileTool.AddParsers(SubToolMake);
|
PkgCompileTool.AddParsers(SubToolMake);
|
||||||
PkgCompileTool.Process.Executable:=CompilerFilename;
|
PkgCompileTool.Process.Executable:=CompilerFilename;
|
||||||
PkgCompileTool.CmdLineParams:=EffectiveCompilerParams;
|
PkgCompileTool.CmdLineParams:=EffectiveCompilerParams;
|
||||||
|
Loading…
Reference in New Issue
Block a user