mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 20:19:29 +02:00
IDE: initial setup: compiler: only prompt if file exists
git-svn-id: trunk@50951 -
This commit is contained in:
parent
7bbc22c03b
commit
4477d86b14
@ -979,17 +979,16 @@ begin
|
|||||||
fLastParsedCompiler:=EnvironmentOptions.GetParsedCompilerFilename;
|
fLastParsedCompiler:=EnvironmentOptions.GetParsedCompilerFilename;
|
||||||
//debugln(['TInitialSetupDialog.UpdateCompilerNote ',fLastParsedCompiler]);
|
//debugln(['TInitialSetupDialog.UpdateCompilerNote ',fLastParsedCompiler]);
|
||||||
|
|
||||||
// check compiler again
|
|
||||||
CfgCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
|
|
||||||
fLastParsedCompiler,'','','',true);
|
|
||||||
CfgCache.Update(CodeToolBoss.FPCDefinesCache.TestFilename);
|
|
||||||
BuildBoss.SetBuildTargetIDE;
|
|
||||||
|
|
||||||
Quality:=CheckCompilerQuality(fLastParsedCompiler,Note,
|
Quality:=CheckCompilerQuality(fLastParsedCompiler,Note,
|
||||||
CodeToolBoss.FPCDefinesCache.TestFilename);
|
CodeToolBoss.FPCDefinesCache.TestFilename);
|
||||||
if Quality<>sddqInvalid then begin
|
if Quality<>sddqInvalid then begin
|
||||||
CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
|
CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
|
||||||
fLastParsedCompiler,'','','',true);
|
fLastParsedCompiler,'','','',true);
|
||||||
|
// check compiler again
|
||||||
|
CfgCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
|
||||||
|
fLastParsedCompiler,'','','',true);
|
||||||
|
CfgCache.Update(CodeToolBoss.FPCDefinesCache.TestFilename);
|
||||||
|
BuildBoss.SetBuildTargetIDE;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
case Quality of
|
case Quality of
|
||||||
|
Loading…
Reference in New Issue
Block a user