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

codetools: fixed crash if identifier is not a node

Browse Source 
git-svn-id: trunk@41143 -
This commit is contained in:
mattias 2013-05-12 08:02:02 +00:00
parent 777bf16774
commit 910bf5ba13
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -722,7 +722,7 @@ begin
AVLNode:=FIdentView.FindLeftMostKey(FIdentSearchItem,
@CompareIdentListSearchWithItemsWithoutParams);
while (AVLNode<>nil)
and not (TIdentifierListItem(AVLNode.Data).Node.Desc in [ctnProcedure,ctnProcedureHead])
and not (TIdentifierListItem(AVLNode.Data).GetDesc in [ctnProcedure,ctnProcedureHead])
and (CompareIdentifiers(Identifier,PChar(TIdentifierListItem(AVLNode.Data).Identifier))=0)
do
AVLNode:=FIdentView.FindSuccessor(AVLNode);