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

Codetools: Revert the identifier completion change. Issue #32972.

Browse Source
This commit is contained in:
Juha 2025-03-03 20:23:54 +02:00
parent c42495ffab
commit 3db5d120a5
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/identcompletiontool.pas
View File

@ -965,18 +965,14 @@ procedure TIdentifierList.Add(NewItem: TIdentifierListItem);
var var
AnAVLNode: TAVLTreeNode; AnAVLNode: TAVLTreeNode;
begin begin
if (NewItem.GetDesc = ctnProcedure) if (ilcfDontAllowProcedures in ContextFlags) and (NewItem.GetDesc = ctnProcedure) and
and ( (NewItem.IsFunction or NewItem.IsConstructor) // definition not finished yet not (NewItem.IsFunction or NewItem.IsConstructor)
or (ilcfDontAllowProcedures in ContextFlags) ) // ??? then
then begin begin
Assert(NewItem.FResultType='', 'TIdentifierList.Add: FResultType is not empty');
if ilcfDontAllowProcedures in ContextFlags then
DebugLn('TIdentifierList.Add: ilcfDontAllowProcedures in ContextFlags, Desc = ctnProcedure');
NewItem.Free; NewItem.Free;
Exit; Exit;
end; end;
if NewItem.FResultType<>'' then
DebugLn(['TIdentifierList.Add: ResultType=',NewItem.FResultType]);
AnAVLNode:=FIdentView.FindKey(NewItem,@CompareIdentListItemsForIdents); AnAVLNode:=FIdentView.FindKey(NewItem,@CompareIdentListItemsForIdents);
if AnAVLNode=nil then begin if AnAVLNode=nil then begin
if History<>nil then if History<>nil then