paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: linkscanner: UpdateNeeded when scanner used alon

Browse Source 
git-svn-id: trunk@41147 -
This commit is contained in:
mattias 2013-05-12 09:15:26 +00:00
parent 2dd48ee614
commit 160f654e02
1 changed files with 46 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/linkscanner.pas
View File

@ -2155,15 +2155,15 @@ begin
exit;
end;
end else begin
CurSourcesChangeStep:=0;
CurFilesChangeStep:=0;
CurInitValuesChangeStep:=0;
CurSourcesChangeStep:=1;
CurFilesChangeStep:=1;
CurInitValuesChangeStep:=1;
end;
// check initvalues
if Assigned(FOnGetInitValues) and (FGlobalInitValuesChangeStep<>CurInitValuesChangeStep)
then begin
if FGlobalInitValuesChangeStep<>CurInitValuesChangeStep then begin
FGlobalInitValuesChangeStep:=CurInitValuesChangeStep;
if Assigned(FOnGetInitValues) then begin
NewInitValues:=FOnGetInitValues(Self,Code,NewInitValuesChangeStep);
if (NewInitValues<>nil)
and (NewInitValuesChangeStep<>FInitValuesChangeStep)
@ -2175,11 +2175,12 @@ begin
exit;
end;
end;
end;
// check all used codebuffers
if Assigned(FOnGetSource) and (FGlobalSourcesChangeStep<>CurSourcesChangeStep)
then begin
if FGlobalSourcesChangeStep<>CurSourcesChangeStep then begin
FGlobalSourcesChangeStep:=CurSourcesChangeStep;
if Assigned(FOnGetSource) then begin
for i:=0 to FSourceChangeSteps.Count-1 do begin
SrcChange:=PSourceChangeStep(FSourceChangeSteps[i]);
SrcLog:=FOnGetSource(Self,SrcChange^.Code);
@ -2193,12 +2194,14 @@ begin
end;
end;
end;
end;
// check all file dates
if CheckFilesOnDisk and Assigned(FOnGetSource)
and (FGlobalFilesChangeStep<>CurFilesChangeStep) then begin
// if files changed on disk, reload them
if CheckFilesOnDisk then begin
if FGlobalFilesChangeStep<>CurFilesChangeStep then begin
FGlobalFilesChangeStep:=CurFilesChangeStep;
if Assigned(FOnGetSource) then begin
// if files changed on disk, reload them
for i:=0 to FSourceChangeSteps.Count-1 do begin
SrcChange:=PSourceChangeStep(FSourceChangeSteps[i]);
SrcLog:=FOnGetSource(Self,SrcChange^.Code);
@ -2211,6 +2214,8 @@ begin
end;
end;
end;
end;
end;
// check missing include files
if CheckFilesOnDisk and MissingIncludeFilesNeedsUpdate then begin