paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 12:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: reduced warnings

Browse Source 
git-svn-id: trunk@31647 -
This commit is contained in:
mattias 2011-07-10 09:11:20 +00:00
parent d38ed498ab
commit af824f5ad1
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/identcompletiontool.pas
View File

@ -78,6 +78,7 @@ type
iliParamNameListValid,
iliNodeValid,
iliNodeHashValid,
iliNodeGoneWarned,
iliIsConstructor,
iliIsConstructorValid,
iliIsDestructor,
@ -2737,6 +2738,11 @@ begin
Result:=nil;
if Tool=nil then
exit;
if (iliNodeValid in Flags)
and (FToolNodesDeletedStep<>Tool.NodesDeletedChangeStep) then
Exclude(Flags,iliNodeValid);
if (not (iliNodeValid in Flags)) then begin
if iliNodeHashValid in Flags then begin
RestoreNode;
@ -2744,12 +2750,14 @@ begin
Result:=FNode;
end;
end;
exit;
end else begin
if FToolNodesDeletedStep=Tool.NodesDeletedChangeStep then begin
Result:=FNode;
end else begin
DebugLn(['TIdentifierListItem.GetNode node ',Identifier,' is gone from ',Tool.MainFilename]);
if not (iliNodeGoneWarned in Flags) then begin
DebugLn(['TIdentifierListItem.GetNode node ',Identifier,' is gone from ',Tool.MainFilename]);
Include(Flags,iliNodeGoneWarned);
end;
FNode:=nil;
end;
end;