paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 05:19:27 +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; function Compute: string;
var var
FPCVersion, FPCRelease, FPCPatch: integer;
TargetOS: String; TargetOS: String;
TargetCPU: String; TargetCPU: String;
CompilerFilename: String; CompilerFilename: String;
@ -1500,7 +1499,7 @@ function TBuildManager.MacroFuncFPCVer(const Param: string; const Data: PtrInt;
ConfigCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find( ConfigCache:=CodeToolBoss.FPCDefinesCache.ConfigCaches.Find(
CompilerFilename,'',TargetOS,TargetCPU,true); CompilerFilename,'',TargetOS,TargetCPU,true);
if ConfigCache=nil then exit; if ConfigCache=nil then exit;
if (ConfigCache.CompilerDate=0) and ConfigCache.NeedsUpdate then begin if ConfigCache.NeedsUpdate then begin
// ask compiler // ask compiler
if not ConfigCache.Update(CodeToolBoss.FPCDefinesCache.TestFilename, if not ConfigCache.Update(CodeToolBoss.FPCDefinesCache.TestFilename,
CodeToolBoss.FPCDefinesCache.ExtraOptions,nil) CodeToolBoss.FPCDefinesCache.ExtraOptions,nil)

1
ide/main.pp
View File

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