paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 15:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check symbol name presence before insertion into UnitsCodeCompleteWords

Browse Source 
git-svn-id: trunk@6010 -
This commit is contained in:
pierre 2007-01-17 05:32:46 +00:00
parent 6606eac232
commit 60eddddf61
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/fpcodcmp.pas
View File

@ -207,7 +207,7 @@ var
end;
Var
st : string;
CIndex : sw_integer;
begin
Inc(level);
if UnitsCodeCompleteWords^.Count=MaxCollectionSize then
@ -215,7 +215,12 @@ var
st:=P^.GetName;
if Length(st)>=CodeCompleteMinLen then
if not ((level=1) and OnlyStandard and (st=UpCaseStr(CodeCompleteUnitName))) then
UnitsCodeCompleteWords^.Insert(NewStr(Lowcasestr(st)));
begin
st:=Lowcasestr(st);
UnitsCodeCompleteWords^.LookUp(st,CIndex);
if CIndex<>-1 then
UnitsCodeCompleteWords^.Insert(NewStr(st));
end;
{ this is wrong because it inserted args or locals of proc
in the globals list !! PM}
if (P^.Items<>nil) and (level=1) and