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

codetools: move StoreNodeHash to SetNode. See r51650 #a5cd34a174

Browse Source 
git-svn-id: trunk@51651 -
This commit is contained in:
ondrej 2016-02-18 03:32:43 +00:00
parent a5cd34a174
commit 263929eb6c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/identcompletiontool.pas
View File

@ -3528,9 +3528,6 @@ begin
and (FToolNodesDeletedStep<>Tool.NodesDeletedChangeStep) then and (FToolNodesDeletedStep<>Tool.NodesDeletedChangeStep) then
Exclude(Flags,iliNodeValid); Exclude(Flags,iliNodeValid);
if (Flags * [iliNodeHashValid, iliNodeValid] = [iliNodeValid]) then
StoreNodeHash;
if (not (iliNodeValid in Flags)) then begin if (not (iliNodeValid in Flags)) then begin
if iliNodeHashValid in Flags then begin if iliNodeHashValid in Flags then begin
RestoreNode; RestoreNode;
@ -3566,6 +3563,8 @@ begin
RaiseToolMissing; RaiseToolMissing;
if (Tool<>nil) then if (Tool<>nil) then
FToolNodesDeletedStep:=Tool.NodesDeletedChangeStep; FToolNodesDeletedStep:=Tool.NodesDeletedChangeStep;
if (FNode<>nil) then
StoreNodeHash;
end; end;
procedure TIdentifierListItem.SetParamTypeList(const AValue: string); procedure TIdentifierListItem.SetParamTypeList(const AValue: string);