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

codetools: comments

Browse Source 
git-svn-id: trunk@46596 -
This commit is contained in:
mattias 2014-10-18 20:21:52 +00:00
parent 3ff2c569d2
commit 06bf8e9ec7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/identcompletiontool.pas
View File

@ -212,7 +212,7 @@ type
FFlags: TIdentifierListFlags;
FHistory: TIdentifierHistoryList;
FItems: TAVLTree; // tree of TIdentifierListItem (completely sorted)
FIdentView: TAVLTree; // tree of TIdentHistListItem sorted for identifiers
FIdentView: TAVLTree; // tree of TIdentifierListItem sorted for identifiers
FUsedTools: TAVLTree; // tree of TFindDeclarationTool
FIdentSearchItem: TIdentifierListSearchItem;
FPrefix: string;
@ -437,7 +437,7 @@ begin
exit;
end;
// then sort for Level (lower is better)
// then sort for Level (i.e. scope, lower is better)
if Item1.Level<Item2.Level then begin
Result:=-1;
exit;
@ -777,7 +777,7 @@ end;
function TIdentifierList.CompletePrefix(const OldPrefix: string): string;
// search all identifiers beginning with Prefix
// and return the biggest prefix of all of them
// and return the biggest shared prefix of all of them
var
AnAVLNode: TAVLTreeNode;
CurItem: TIdentifierListItem;