paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: rescan fpc sources: invalidate

Browse Source 
git-svn-id: trunk@29907 -
This commit is contained in:
mattias 2011-03-19 12:07:29 +00:00
parent 57fc537b5a
commit 3a715d162c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/buildmanager.pas
View File

@ -1483,7 +1483,6 @@ function TBuildManager.MacroFuncFPCVer(const Param: string; const Data: PtrInt;
function Compute: string;
var
FPCVersion, FPCRelease, FPCPatch: integer;
TargetOS: String;
TargetCPU: String;
CompilerFilename: String;
@ -1500,7 +1499,7 @@ function TBuildManager.MacroFuncFPCVer(const Param: string; const Data: PtrInt;
ConfigCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
CompilerFilename,'',TargetOS,TargetCPU,true);
if ConfigCache=nil then exit;
if (ConfigCache.CompilerDate=0) and ConfigCache.NeedsUpdate then begin
if ConfigCache.NeedsUpdate then begin
// ask compiler
if not ConfigCache.Update(CodeToolBoss.FPCDefinesCache.TestFilename,
CodeToolBoss.FPCDefinesCache.ExtraOptions,nil)

1
ide/main.pp
View File

@ -4977,6 +4977,7 @@ end;
procedure TMainIDE.mnuEnvRescanFPCSrcDirClicked(Sender: TObject);
begin
IncreaseBuildMacroChangeStamp;
MainBuildBoss.RescanCompilerDefines(false,true,false,false);
end;