paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 13:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TBaseKeyWordFunctionList: do not sort on add

Browse Source 
git-svn-id: trunk@57149 -
This commit is contained in:
mattias 2018-01-26 09:42:38 +00:00
parent eb52382d06
commit e568cca991
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/codetools/keywordfunclists.pas
View File

@ -87,7 +87,7 @@ type
function AllwaysFalse: boolean;
property Count: integer read FCount;
function GetItem(Index: integer): TBaseKeyWordFunctionListItem;
function IndexOf(const AKeyWord: shortstring): integer;
function IndexOf(const AKeyWord: shortstring; UseSort: boolean): integer;
function CalcMemSize: PtrUInt;
property HasOnlyIdentifiers: boolean read FHasOnlyIdentifiers;
property Name: string read FName write FName;
@ -398,7 +398,7 @@ var
i: Integer;
begin
for i:=0 to List.FCount-1 do begin
if IndexOf(List.FItems[i].KeyWord)<0 then begin
if IndexOf(List.FItems[i].KeyWord,false)<0 then begin
AddExtended(List.FItems[i].KeyWord,List.FItems[i].DoIt,
List.FItems[i].DoDataFunction);
end;
@ -511,23 +511,29 @@ begin
Result:=FItems[Index];
end;
function TBaseKeyWordFunctionList.IndexOf(const AKeyWord: shortstring): integer;
function TBaseKeyWordFunctionList.IndexOf(const AKeyWord: shortstring;
UseSort: boolean): integer;
var
i: Integer;
begin
if not Sorted then Sort;
if UseSort then begin
if not Sorted then Sort;
i:=KeyWordToHashIndex(AKeyWord);
if i>=0 then begin
i:=FBucketStart[i];
i:=KeyWordToHashIndex(AKeyWord);
if i>=0 then begin
repeat
if CompareText(FItems[i].KeyWord,AKeyWord)=0 then
exit(i);
if FItems[i].IsLast then break;
inc(i);
until false;
i:=FBucketStart[i];
if i>=0 then begin
repeat
if CompareText(FItems[i].KeyWord,AKeyWord)=0 then
exit(i);
if FItems[i].IsLast then break;
inc(i);
until false;
end;
end;
end else begin
for i:=0 to FCount-1 do
if CompareText(FItems[i].KeyWord,AKeyWord)=0 then exit(i);
end;
Result:=-1;
end;